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Abstract 


With  the  availability  of  numerical  techniques  for  solving  an  extensive  set  of 
nonlinear  differentialequations  and  high-speed  computers  for  performing  the  cal¬ 
culations,  interest  in  solving  the  unrestricted.reaction-rate  equations  is  growing 
among  ionospheric  researchers.  In  view  of  this,  the  author  has  continued  to  refine 
the  techniques  that  he  previously  developed. 

The  computer  code,  as  discussed  here,  is  written  to  solve  the  photochemical 
behavior  of  15  atmospheric  species;  these  species  are  electrons,  O-  ,  Og  ,  Oj  , 
NOg  ,  0+ ,  Ot,  Ng ,  NO+ ,  NO ,  N ,  NOg  ,  Og ,  NgO ,  and  O .  Built  into  the  code  are 
168  reactions  that  can  conceivably  take  place  among  these  constituents.  Several 
examples  of  the  results  obtained  using  the  code  are  presented,  including  the  buildup 
of.  ionization  from  zero  concentrations  at  altitudes  nn  the  D  and  E  regions  and  the 
deionization  of  an  atmosphere  with  high  initial  electron  densities.  The  diurnal 
variation  of  the  atmospheric  constituents  is  also  presented  along  with  profiles  for 
the  above-mentioned  species  from  60  km  to  120  km. 

The  computer  codes  are  included  in  their  entirety  with  complete  explanations 
on  their  usage. 
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A  Technique  for  Solving  the  General  Reaction-Rate 

Equations  in  >the  Atmosphere 

I.  INTRODUCTION 

The  capability  of  solving  the  set  of  differential  equations  that  describe  the  time 
dependence  of  individual  atmospheric  constituents  is  becoming  more  and  more 
important  to  ionospheric  research.  Modification  and  extension  of  the  computer 
techniques  that  were  developed  by  the  author  (1962,,  1963)  have  continued  because 
of  this.  Since  in  certain  applications  these  techniques  could  not  generate  solutions 
and  since  these  applications  are  important  to  ionospheric;studies,  the  techniques 
were  reevaluated  in  order  to  make  their  usefulness  more  general. 

The  most  significant  change  made  in  the  code  is  the  handling  of  the  solution  for 
a  species  after  it  has  gone  into  equilibrium  or  into  quasi-equilibrium  with  one  or 
more  other  species.  The  techniques  involved  in  developing  a  solutiomunder  these 
conditions  have  always  presented  problems.  The  algebraic  equations  that  were  used 
in  previous  work  for  the  computation  of  the  concentrations  of  the  species  in  equilibrium 
or  quasi-equilibrium  proved  to  be  inadequate  for  this  purpose.  A  new  approach 
that  lead  to  a  set  of  exponential  equations  which  replaced  the  set  of  algebraic 
equations  was  developed  involving  less  stringent  restrictions.  With  this  new 
technique,  no  code  failures  were  experienced. 
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Another  important  change  is  in  the  method  of  numerically  integrating  the  dif¬ 
ferential  equations.  Although  it  develops  stable  solutions,  the  Runge  Kutta  tech¬ 
nique  used  previously  is  uneconomical  in  terms  of  computer  time.  In  order  to 
reduce  the  “amount  of  computer  time  required  for  each  solution,  the  Runge  Kutta  tech¬ 
nique  was  replaced  by  the  Kutta  Merson  technique.  This, later  method  requires  fewer 
computations  of  the  derivatives  over  each  increment  thereby  conserving  computer 
time. 

Other  changes  include  removal  of  the  sum  equations  used  by  the  author  (1063) 
since  tho  reason  for  their  being  employed  was  eliminated  with  the  new  technique 
for  solving'  the  concentrations  of  the  species  in  equilibrium,  the  computation  of  the 
largest  negative  species  from  charge  balance  rather  than  the  largest  positive  species, 
the  use  of  a  separate  code  to  write  the  subprogram  SLOP  which  computes  the  values 
of  the  derivatives,  and  the  inclusion  in  the  code  of  two  additional  species  (nitrogen 
peroxide  and  atomic  oxygen)  along  with  25  new  reactions. 

The  updated  codes  are  presented  here  with  several  practical  applications. 

These  examples  include  the  simple  buildup  of  ionization  from  zero  by  an -external 
source,  the  deionization  from  high  initial  conditions  and  the  diurnal  variation  of 
the  atmospheric  species  in  the  D  and  E  regions. 


2.  REVISIONS  l><  TIIE  TECHNIQUES  OF  SOLUTION 

Since  the  last  report  by  the  author  (1963)  was  written,  attempts  were  made  to 
use  the  code  under  diversified  conditions.  In  several  of  these  instances,  the  code 
either,  failed  to  generate  realistic  solutions  or  was  unable  to  generate  any  solution 
at  all;  the  source  of  this  trouble  was  always  traced  back  to  the  solution  of  the  algebraic 
set  of  equations.  This  set  of  simultaneous  algebraic  equations  was, used  to  compute 

the  concentrations  of  the. species  that  are  in  quasi-equilibrium.  Using  a  criterion 

-2 

of  10  on  the  iterations  of  the  algebraic  set  allowed  a  certain  amount  of  charge 
imbalance  to  be  accepted.  Because  the  major  positive  ion  was  always  being  computed 
from  the  requirement <of  balance  of  charge,  any  charge  imbalance  resulting  from  the 
solution  of  the  algebraic  equations  was  attributed  to  this  positive  ion.  As  long 
as  this  positive  ion  remained  the  most  abundant  throughout  the  solution,  this  allowed 
imbalance  did  not  causeanymoticeable  problems.  Whenever  another  positive  ion 
became  the  most  abundant,  however,  the  program  generally  was  incapable  of  advancing 
the  solution.  Once  a  positive  ion  was  superceded  as  the  dominant  ion,  it  was  no  longer 
computed  from  the  requirement  oRcharge  balance  but  rather  from  its  differential 
equation.  Since-the  concentration  of  this  ion  had  taken  up  the  excess  charge  that  was 
allowed  to  creep  into  the  solution,  the  value  oLits  density  was  not  consistent  with  that 
obtained  from  the  solution  of  its  differential  equation.  The  program  tried  to  correct 
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this  situation  but  the  damage  was  irreparable  and  the  program  forced  to  main¬ 
tain  a  constant  mesh  of  the  order  of  a  microsecond. 

The  simple  act  of  tightening  the  criterion  on  the  iterations  of  the  algebraic  set 
to  10"  !  and  thus  reducing  the  allowed  charge  imbalance  removed  this  problem  from 
practical  concern.  The  resulting  greater  accuracy -.in  the  solution  of  the  algebraic 
equations  also  permitted  the  removal  of  the  two  sum  equations  used  in  the  previous 
code.  This  change  did  not  solve  all  of  the  problems,  however. 

Occasions  arose  where  it  appeared  that  at  some  point  in  the  solution1  neither 
the  differential  set  nor  the  algegraic  set  of  equations  could  generate  a  solution. 

The  code  advanced  the  solution  to  a. time  at  which  it  determined  that  a  species  was 
in  quasi-equilibrium.  It  removed  its  differential  equation  from  the  set  and  expected 
a  solution  from  the  algebraic  set  of  equations.  However,  the  simultaneous  solution 
of  the  algebraic  equations  did  not  converge  in  the  fixed  number  of  iterations.  Thd 
code  then  demandedThat  the  differential  equation  tor  this  species-be  used  for  the 
solution.  In  order  to  obtain  absolution  from, the  differential  equation  at  this  point, 
however,  it  was  necessary  to  reduce  the  integrating  increment.  The/ overall  effect 
of  this  behavior  was  to  allow  the  solution  to  advance  but  only  in  ver;v  small  increments. 

This-difficulty  was  attributed  to  the  fact  that  .the  species  was  in  quasi-equilibrium 
and  not  in  true  equilibrium.  Tn  other  words,  its  derivative  was  t,ot  zero  as  assumed 
in  deriving  the  algebraic  equations.  If  the  differential  equations  are  written  as 

dN  ^ 

-ir-  L")  -  ;'iXb  “> 


and,  if 


dN. 
_ a 

dt 


-  0  ,  then 


(2) 


This  is  the  formula  previously  used. to  construct  the  set  of  algebraic  equations. 
Because  the  derivative  was  not  near  zero,  it  could  not  be  expected  that  the  concen¬ 
tration  could  be  computed  from  Eq.(2).  In  order  to  overcome  this  problem,  the 
assumption  that'the  derivative  is  zero  was  replaced  by  the  more  realistic  assumption 
that  the  formation  term  ^Hf.  and  the  removal  term^JRj  in  Eq.(l)  are  constants. 
Equation  (1)  under  these  circumstances  is  a  first  order  linear  differ  ntial  equation 
with  constant  coefficients  and  its  exact  solution  is 
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where  At  is  the  length  of  the  increment  currently  being  used  by'the  integrator  and, 

N  is  the  concentration  of  the  species  at  the  beginning  of  this  increment.  Equation 
(3)  is  now  used  to  construct  the  set  of  simultaneous  exponential  equations  for  the 
solution  of  the  species  that  are  in  quasi-equilibrium. 

The  technique  used  by  the  author  .(1962,  1963)  for  numerically  integrating  the 
differential  c  quations  is  the  classical  Ilunge  Kutta  fourth-order  process.  One  of 
the  disadvantages  of  this  technique  is  that  it  does  not  contain,  within  itself  any  mea¬ 
sure  of  the  accuracy  of  the  solution  at  each  integration.  In  order  to  impose  some 
control  on  the  accumulation  of  errors,  three  separate  integrations  are  performed 
for  a  given  increment.  The  first  integration  is  made  over  the  increment  At  start¬ 
ing  with  t'nc-«.oncentrations  Nj  (t0);  the  second  integration  is  made  over  the  incre¬ 
ment  At  starring  with  the  concentrations  Nj(tQ  +  At);  and,  the  third  integration  is; 
made  over  t.-.e  increment  2At  starting  with  the  concentrations  N.(tQ)  -  The  con¬ 
centrations  obtained  after  the  second  and  third  integration  are  compared;  if  they 
differ  by  more  than  some  preset  amount>  the  solution  is  considered  to  be  invalid. 
This  procedure  requires  12  separate  computations  of  the  derivatives.  The  dif¬ 
ferential  equations  solveddiere  generally  contain  a  very  large  number  of  terms 
which  means  that  a  great  deal  of  computer  time  is  spent  in  computing  the  deriva¬ 
tives.  This  is  very  costly  of  machine  time  since  in  many  cases  the  solution  is 
unacceptable  and  the  procedure  must  be  repeated  with  a  smaller  increment. 

Merson  (1957)  developed  a  technique  based  upon  that  of -Kutta  in  which  only 
five  values  of  the  derivative  are  required  for  any  one  solution.  Since  it  appeared 
that  this  could  be  a  great  device  for  reducing  the  amount  of  computer  time  required 
for  each  solution,  the  Ilunge  Kutta  technique  was  replaced  by  the  Kutta  Merson  tech¬ 
nique.  A  detailed  description  of  this  method  is  given  in  Section  7.  1.2. 

3.  CUBMiCAl,  HEAOTIONa  ANi)  REACTION-RATE  CONSTANTS 

The  computer  code, as  presented  here,  was  written  to  evaluate  the  time  histories 
of  15  variable  atmospheric  species:  electrons,  O" ,  Og  ,  Oj  ,  NOg  ,0  ,  Og  ,  Ng  , 
NO+ ,  NO  ,  N  ,  NOg  ,  03  ,  NgO  ,  and  atomic  oxygen.  The  model  contains  reser- 
vcirs  of  molecular  oxygen  and  molecular  nitrogen  that  are  allowed  to  vary  during 


the  solution  in  order  to  insure  conservation  of  the  total  number  of  oxygen  and 
nitrogen  atoms  initially  present  in  the  system. 

The  code  contains  168  chemical  reactions  that  can  possibly  take  place  among 
the  variable  species.  With  a  few  exceptions,  the  chemical  processes  and  their 
rate  constants  incorporated  into  the  code  are  those  suggested  by  Bortner  (1  Qto). 

These  rates  are  a  combination  of  laboratory,  insitu,  theoretical,  and  estimated 
values.  Although  individual. rate  constants  may  certainly  be  subject  to  argument, 
they  appear  to  be  a  reasonable  collection  and  about  the  only  suitable  source  to  use 
in  a  program  of  this  magnitude.  The  values  used  for  the  rate  constants  are  generally 
the  middle  values  within  the  range  of  uncertainty  (Bortner,  1965).  Deviations  are 
made  from  this  general  rule  in  certain  instances  as  in  the  case  of  the  positive  ion- 
charge  transfer  and  charged  rearrangement  processes  (  Ferguson,  Fehsenfeld, 

Goldan,  and  Schmeltokopf,  1965).  Certain  other  rate  constants  were  modified 
within  the  estimated  error  bounds  (Bortner,  1965).  These  modifications  represent 
minor  adjustments  that  were  found  to  produce  results  appearing  to  be  more  reason¬ 
able  when  compared  with  ionospheric  measurements. 

Some  of  the  reactions  in  the  following  list.produced  products  for  which  there 
are  no  differential  equations  in  the  set.  In  order  to  insure  that  these  reactions  do 
not  remove  from  the'  system  any  of  the  charge  for  which  account  cannot  be  made, 
their  rate  constants  are  set  to  zero.  This  is  equivalent  to  assuming  that  the  reactions 
are  relatively  unimportsmt.  There  are  also  several  reactions  in  the  list  that  are 
probably  unimportant  in  most  ionospheric  studies;  but,  since  it  is  generally  impos¬ 
sible  to  predetermine  the  importance  of  a  given  reaction  and  since  it  is  the  author ’s 
purpose  to  keep  the  code  as  general  as  possible,  all  reactions  are  retained  in  the 
code. 

The  following  is  the  basic  list  of  reactions  and  rate  constants  built  into  the 

"1  3  —  l  6  — 1 

code.  The  dimensions  are  sec  ,  cm  sec  ,  and  cm  sec  respectively  for  one, 
two,  and  three  body  reactions.  The  third  body  M  is  assumed  to  be  N2  +  Og  . 

The  temperatures  used  in  computing  the  rate  constants  are  taken  from  'iheU.  S. 
Standard  Atmosphere  (1962).  Those  reactions  marked  with  an  asterisk  have 
assumed  rate  constants  other  than  those  shown  in  some  of  the  applications  pre¬ 
sented  here. 

A.  PHOTODETACHMENT 

1.  Oj  +  hr — »-02  +  e  0.44 

2.  O"  +  hr — *“0  +  e  1.4 

3.  N02  +  hr— N02  +  e  0.04 

*4.  Oj  +  hr — ?-03  +  e 


0.04 
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B.  COLLISIONAL  DETACHMENT 


O' 

+  o„ 

— ►0, 

+  0o  +  e 

OX  iO“15tV(5100/T> 

2 

or. 

2 

+  N0 

2 

— -*-o0 

2 

+  No  +  e 

3.6X10-16tV(510°/T> 

°2 

2 

+  O 

2 

*■  °2 

l 

+  O  +  c 

3.exio-16T2o-(5IO“/T> 

C.  ASSOCIATIVE  DETACHMENT 

8.  O'  +  O  - >-02  +  e 

9.  O'  +  02 - ►Og  +  e 

10.  O'  +  N - t*-NO  +  e 

11.  O"  +  N2 - ■^N20  +  e 

12.  O"  +  NO - ~N02  +  e 

13.  O'  +  Og- — -02  +  02  +  e 

14.  02  +  N  - -N02  +  e 

15.  O"  +  O  - -Og  +  e 

*167.  O'  -+  O  - •~02  +  02  +  e 

168.  NOj  +  O - ~02.  +  NO  +  e 

D.  RADIATIVE  ATTACHMENT 


16. 

O  + 

e  — 

—  O'  + 

hy 

1.  31 X  10" 

17., 

+ 

O 

e  — 

~—~°2  + 

In/ 

IX  10" 19 

f 

‘t02  + 

e  — 

—NO"  + 

hy 

IX  io"17 
-17 

19i 

-3  + 

e  — 

—  O'  + 

h  v 

IX  10 

1X10 

ix  icr1M470°/T> 

IX  10' 13 
IX  10" 13 
ilX  10" 13 
IX  10" 13 
IX  io"13 
IX  io"13 
IX  io" 13 
IX  io" 13 


E.  DISSOCIATIVE  ATTACHMENT 

20.  Og  +  e - -  O"  +  02 

21.  Og  +  e — — —O"  +  O 


IX  10 

lX10-ne"<7200/T> 
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F.  THREE-BODY  ATTACHMENT 


22. 

O  +  e  +  02  - 

— -0“ 

+ 

°2 

IX  ,10-31 

23. 

O  +  e  +  N9  - 

— —  0" 

+ 

N2 

IX  lo"31 

24, 

02  +  e  +  °2 

“^°2 

+ 

°2 

1.4  X10'31T1/2 

25. 

02  +  e  +  N2  — 

—  °2 

+ 

N2 

5.  8  X  10_33T1/2 

26. 

02  +  e  +  0  — 

— -o2 

+ 

0 

1.  9  XIO'^T1/2 

27. 

N02  +  e  +  O0 — 

— -NO- 

+ 

°2 

6  X  10'28 

28. 

NOg  +  e  +  N2  — 

— NO- 

+ 

N2 

4  X10'29 

29. 

NO  +  e  +  M  — 

— —NO' 

+ 

M 

0 

.  DISSOCIATIVE  RECOMBINATION 

30. 

°2  +  e 

—  O 

+ 

0 

6  X10"5T“1 

31. 

*2  +  e 

—  N 

+ 

N 

9  X10-5T_I 

*32. 

NO+  +  e  - - 

— —  N 

+ 

0 

1.  SXIO^T"1 

.  THREE-BODY  RECOMBINATION 

33. 

0+  +  e  +  M  — 

0 

+ 

M 

ixio'24t-3/’2 

34. 

Op  +  e  +  M  — 

T °2 

+ 

M 

ixio"22t-3/2 

35. 

N*  +  e  +  M - 

—  n2 

+ 

M 

1  X10"22T'3/2 

36. 

NO+  +  e  +  M - 

— -NO 

+ 

M 

1  X  l0-22T-3/2' 

37. 

NO+  +  e  +  M - 

— -N 

+ 

0  + 

M  1  x  10'23T'3/2 

RADIATIVE  RECOMBINATION 

38. 

0+  +  e  - 

—  0 

+ 

hi/ 

2.2  X10"10T'.°' 

39. 

02  +  e 

— o2 

+ 

hi/ 

1  X10-12 

40. 

N2  +  e  - 

~N2 

+ 

hi/ 

1  X10-12 

41. 

NO+  +  e  - 

— —  NO 

-t- 

hi/ 

IX 10“ 12 

J.  ION-ION  MUTUAL  NEUTRALIZATION 


42. 

O'  + 

0+  — 

- -  0 

+  0 

SXIO^T'1/2 

43. 

°l  + 

o+  — 

—  °2 

+  o 

5  X10'7T_1/2 

44. 

no;,  + 

0+  — 

—  no2 

+  o 

5  y  io'W2' 

7VT 
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,  ?  45.  0*  +  0^  - — -0,  +  0  5X10'7T_1/2 

'  u  u 

I  46.  0"  +  Oj  — — — « -O  *J"  02  5  X10“7T_1/2 

|  *  47.  C>2  +  0g  — - — -  0.2  +  C2  5X.10'7T_1/2 

48.  NO"  +  02  - -NO.,  +  °2  SXlO^T"1/2 

;  49.  Oj  +  Oo.  -Og.  +  02  5  x  io~7t~  */2 

|  50.  O"  +  n|.  — - - — O  +  N2  5X40-V1/2 

|  51.  Og  +  Ng  - *“02  +  N2  5X10  "’t*1/2 

I  52.  NO;  +  Ng  — - -  NO,,  +  N2  5X10'7T-1/2 

!  53.  Og  +  N* - — •  N2  +  Og  5X10"7T‘1/2 


1 

}  54. 

O'  + 

NO+  — 

- -O 

+ 

NO 

5  -X  10”7T' 1/2 

j  55. 

O'  * 

NO+  “ 

°2 

+ 

NO 

5  X  10~7T" l/2 

J  56. 

no;  + 

NO+  — 

- -no2 

•f 

NO 

S-XIO^T'1/2 

!  57. 

0 

t*  1 

+ 

NO+  — 

~°3 

+ 

NO 

5  X  10-7T'  J/2 

K.  THREE-BODY  ION-ION  RECOMBINATION 

58.  O'  +  0+  +  N - -O.,  +  N  1X10‘23T'3/2 

50.  O"  +  o+  +  o2 - -o2  +  09  ixio'23t_3/2 

60.  O’  +  0+  +  N9 - —  o2  +  n2  1  x  io_23t'3/2 

61.  O-  +  0+  +  O - *r02  +  O  1  X10"23T"3/2 

62.  o;  +  0+  +  M - -Og  +  M  1X10-23T-3/2 

63.  O'  +  ot,  +  M  - «-0g  +  M  1X10'23T"3/2 

64.  Oj  +  02  +  M - —  Og  v  02  +  M1X10'23T'3/2 

65.  O'  +  N2  +  M - -N.,0  +  M  1X10~23T'3/2 

66.  Oj  +  N2  +  M - -02  +  Ng  +  M  1  X10"23T"3/2 

67.  O'  +  NO++  M - *~NOs  +  M  1 X  10~23T'3/2 

68.  O;  +  NO+  +  M - -09  +  NO+ M  1X10"23T"3/2 


isu'Sk  - 
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L.  ION-ION  NEUTRALIZATION  WITH  REARRANGEMENT 


69. 

°2 

+ 

— - -  NO 

NO 

lXlO"11 

70. 

°2 

+ 

4 

- ~n2o 

+ 

0 

IX  10" 13 

71. 

°2 

+ 

4 

- »-  NOg 

+ 

N 

1-X  10" 13 

72'. 

°2 

+ 

4 

- -  2N 

+ 

20 

0 

73. 

NO- 

+ 

4 

- -n2o 

+ 

NO 

IX  10" 13 

74-. 

°5 

+ 

N2 

• - -  n2o 

+ 

°2 

IX  lo"13 

75. 

°2 

+ 

NO+ 

- —  no2 

+ 

0 

IX  10"11 

76. 

o- 

+ 

NO+ 

- -  N 

+ 

°3 

IX  lo"11 

77. 

°a 

+ 

NO+ 

- N 

+ 

o2  +  ° 

ix  io"13 

78. 

no; 

+ 

NO+ 

- -no3 

+ 

N 

0 

79. 

no; 

+ 

NO+ 

- -—NO. 

4* 

o2  +  n 

1  xio"13 

80. 

no; 

+ 

NO+ 

- -  °3 

+ 

N2 

lXlo“13e"(5000/T) 

81. 

°5 

+ 

NO+ 

- ~°2 

+ 

o2  +  n 

1  xio"13 

82. 

°3 

+ 

NO+ 

- ~°2 

+ 

no2 

IX 10" 13 

M.  POSITIVE  CHARGE  TRANSFER 

83. 

0+ 

+ 

°2 

- -  o 

+ 

o+ 

u2 

4  X10"11 

84. 

o+ 

+ 

NO 

- —  0 

+ 

NO+ 

2.  4  Xio"11 

85. 

o+ 

+ 

no2 

- -  0 

+ 

N°2 

0 

86. 

0+ 

+ 

n2° 

- -  0 

+ 

n2°+ 

0 

87. 

°2 

+ 

NO 

- -°2 

+ 

NO+ 

8  XIO"10 

88. 

N2 

+ 

O 

- ~n2 

+ 

0+ 

1  xio"12 

89. 

N2 

+ 

°2  - 

- -  N2 

+ 

°2 

1  X 10" 10 

90. 

N2 

+ 

N  - 

- -N2 

+ 

N+ 

0 

*91. 

N2 

+ 

NO  - 

- -n2 

NO+ 

5  XIO" 12 

10 


N.  NEGATIVE  CHARGE  TRANSFER 


92, 

.  O- 

+  no2  — 

— ■ -  O 

+  NO- 

IX  10'° 

93, 

,  o' 

+  °3  — 

— -  o 

+  °5 

1  X  lo'9 

94. 

o- 

+  O  - 

—  °2 

+  0“ 

1 X 10'12 

95. 

?2 

+  no2  - 

—  °2 

+  N0i 

I  X  io’° 

OG. 

°2 

+  °3  - 

—  °2 

+  °3 

IXIO'9 

97. 

NO, 

2  +  °3  - 

— no2 

+  °3 

1  X  10'9 

98. 

°3 

+  no2  — — 

—  °3 

4-  NO" 

ixio’9 

0.  ION-NEUTRAL  ASSOCIATION -TWO  BODY 

99. 

o+ 

•*  o  - 

—  °2 

+  hi/ 

IX 10' 16 

100. 

o+ 

+  N  - - 

NO+ 

+  hi/ 

ixio'18 

101. 

o+ 

♦  n2  - — - 

—  n2o+ 

+  hi/ 

0 

102. 

o+ 

+  NO  — - 

—  NO* 

+  hi/ 

0 

103. 

°2 

+  O  - 

~0+3 

+  hi/ 

0 

104. 

N2 

+  N2  - 

+  hi/ 

0 

105. 

NO+ 

+  O  - - - 

-NO| 

+  hi/ 

0 

106, 

O’  . 

+  o,  — - - 

+  -hi/ 

1X10'15 

ION- 

■NEUTRAL  ASSOCIATION-THREE  BODY 

107. 

o+ 

+  O  +  M— — 

~°2 

+  M 

1 X 10-29 

108. 

o+ 

+  N  +  M' - 

— NO+ 

+  M 

1 X lo'29 

109. 

■o+ 

+  N2  +  M  — 

— n2°+ 

+  M 

0 

no.. 

0+ 

+  NO  +  M - 

-no2 

+  M 

0 

111. 

°2 

+  O  +  M - 

-°+3 

+  M 

0 

112. 

NO+ 

+  O  +  M  - 

*N°2 

+  M 

0 

113. 

NO+ 

+  N  +  M  — — 

-n2°^ 

+  M 

0 

114. 

O' 

+  NO  +  M  — 

-no2 

+  M 

1  X  10'30 

115. 

°2 

+  N  +  M - 

-NO’ 

+  IVI 

IX  10' 30 

Q.  CHARGED  REARRANGEMENT -POSITIVE  ION 

116.  O*  +  N2  - —  NO+  +  N 

117.  o+  +  no  - ;v  o;  +  N 


117.  O  +  NO 

118.  O*  +  N 

119.  02  +  N2 

120.  02  +  N 

121.  Ot  +  NO, 

6  C 

122.  N2  +  O 

123.  No  +  00 


NOt  +  N  3  X 10 

-ir  02  +  N  3Xio'12 

O*  +  NO  3  Xio"12e':^2000/T) 

NO+  +  NO  lXlorne-(3000/T) 

/-V  ■*  n  v/  1  a  -  10 


NO  +  O 
NO+  +  O. 

u 

•  NO*  +  NT 

•  NO+  +  NO 


1.8X10 

IX-IO" 11 

2.  5  X  10' 10 
lXl0-Ue-(3500/T) 


R.  CHARGED  REARRANGEMENT -NEGATIVE  ION 


124. 

0" 

+ 

°2  + 

°2 

— -°3 

+ 

°2 

1  X10 

125. 

°2 

+ 

+ 

O 

N2 

— ~no2 

+ 

no2 

1X10 

126. 

°3 

+ 

N2 

• 

—no; 

+ 

NO 

1  X10 

X10-28T-1 
X  10-3^e”( 5000/T) 


}  ,  ' 


S.  TWO-BODY  ATOM  RECOMBINATION 
127.  O  +0  - *-0„  + 


128.  O  +  02  — 

129.  O  +  N  — 

130.  O  +  N2  — 

131.  O  +  NO  - 

132.  N  +  N - 

133.  N  +  02  - - 

134.  N  +  NO  — 

*  135.  O  +  O  +  Og — 

*  136.  O  +O+O  — 

*  137.  O  +  O  +  N2- 

*  138.  O  +  Og  +  02- 

*  139.  O  +  0?,  +  N2 

140.  O  +  C2  +  O  - 


-NO  +  hi/ 

-N20  +  hi/ 

-N02  +  hi/ 


-N02  +  hi/ 

-NgO  +  hi/ 

-°2  +  °2' 


IX  10-2- 
1 X 10-21 
2  XIO-17 
1  X10-24 
,6.4X10” 17 

1  X10-24 
1X10”22 
1 X io"22 

5  X10-32t-1^2 

2  X  10’31T_1/2 
5  X  10”32T_1/2 
3.2XlO”3-5^,900/T) 
2.6X10”35e+(90°/T) 
6.  5  XTO"34 


-  i 

''  f 9 


+  o 
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2X.10"31T~1/'2 

2Xi0-33c-<20000/T> 

3X10-33c+(900/T) 

4.5X10'33o+(900/TI 
3X  10'30T"1 
1X10-33C-(3000/T) 
1X10-3V(100°0/T.) 


1.1X10-‘°0  -(S’SOO/T) 

uwW“»ra 

sxio-'V'530/'” 

2X10-10C-(140°0/T) 

5X10'1VI13500/T) 

5X  ,cr  1V(280°/T> 

3  X  io’33T3*  3e"(G30°/RT) 

2.  5  XIO'11 

2  X10-13e-(,C"’0/T! 

4  X  lo" 12 

2  XIOr11 

8  X10"1V(1200/T) 

5X  10~6 
6X  10-3 

3  XIO-3 
4.08  XIO"7 
5. 58  XIO'8 
5.  3  XIO"3 


O 
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4.  APPLICATION  OF  THE  CODE  TO  THE  DEIONIZATION  PROBLEM 

The  code,  as  described  in  Section  7.  1,  was  used,  to  generate  solutions  to  the 
differential  equations  under  many  different  conditions.  Four  examples  of  a  simple 
application  were  selected  and  the  results  obtained  are  presented  here.  Two  of 
these  describe  the  buildup  of  ionization  from  zero  concentrations  of  the  charged 
species  with  a  continuing  constant  source  at  altitudes  in  the  Dcand  E  regions  The 
remaining  two  describe  the  decay  of  ionization  at  these  same  altitudes  from  high 
initial  values  of  electrons  and  positive  ions  with  a  small  continuing  source.  The 
altitudes  chosen  are  70  km  and  110  km. 

Some  changes  were  made  in  the  basic  list  of  rate  constants  given  in  Section  3. 
Furguson,  et  al.  (1965)  have  determined  that  the  rate  of  the  charge  transfer  re- 

4*  •‘■J* 

action  N,  +  NO — »-NO  +  N0  is  much  faster  than  previously  thought.  Their 

^  „ in  ^  19 

value  of  -5X10  '  •  is  used  for  this  process  instead  of  5X10  ".  For  reasons 

J, 

that  are  discussed  in  Section  5.  3,  the  NO  dissociative  recombination  rate  con- 

'-5-1  + 

stant  was  changed  to  6  X  10  T  to  make  it  equal  to  the  Og  dissociative  recom¬ 
bination  rate  constant.  The  rate  constants  forithe  three-body  recombination  reac- 

,  .OO 

tions  Nos.  135,  136,  and  137  were  changed  to  2.7X  10  and  the  rate  constants 
for  reactions  Nos.  138  and  139  were  changed  to  3. 7Xl0-^4e~151.  Since  these  five 
reactions  are  important  processes  for  the  removal  of  atomic  oxygen,  adjustment 
of  their  rate  constants  was  necessary  in  order  to  obtain  a  reasonable  behavior  of 
the  atomic-oxygen  concentration  in  the  D  region.  In  the  examples  presented  here, 
the  associative  detachment  reaction  Og  +  O  — ^-Og  +  +  e  *s  ^mP°”tant<for  the 

establishment  of  the  negative  ion  to  electron  ratio  in  the  D  region.  With  all  other 
important  rate  constants  remaining  unchanged,  the  rate  constant  for  this  process 
was  increased  to  5  X  10  11  in  order  to  obtain  a  ratio  of  unity-  at  70  km.  All  other 
rate  constants  used  in  runs  to  be  discussed  in  this  sectionare  as  given  in  the  above 
list. 

Figure  1  shows  the  solution  at  70  km  with  zero- initial  concentrations  of  all  the 

changed  species  and  with  estimated  initial  concentrations  of  the  minor  neutral 

b 

species.  The  continuing  source  creates  1.  122  ion-pairs/cm  /sec.  The  production 
subroutine  was  setup  to  ionize  the  neutral  species  as  if  the  source  were  UV  radiation. 
Therefore,  Og  is  the  most  abundantly  produced  positive  ion.  For  this  demonstra¬ 
tion  of  the  functioning  of  the  computer  code,  it  is  immaterial  that  the  assumed  pro¬ 
duction  was  unrealistic  because  in  the  D  region  La  and  cosmic  rays  are  actually 
the  ionizing  agents. 

_2 

The  atomic  oxygen  concentration  remains  constant  until  10'  secs  when  the 
photodissociation  of  Og  and  Og  becomes  effective  in  producing  this  atom.  The 
time  constant  for  its  removal  by  the  three-body  recombination  reaction 


Figure  1.  Solution  at  70  km  with  Zero  lnitial  Conditions  on 
the  Charged  Species  and  a  Constant  Source  of  1.  122  ion-pairs/ 
cm^/sec 


O  <!»•  Og+M  — - ^^3  +  M  is  about  3X10  secs.  After  this  time,  the  formation 

rate  by  photodissociation  and  the  removal  rate  by  recombination  become  equal, 
causing  the  atomic  oxygen  concentration  to  go  into  equilibrium. 

The  ozone  concentration  cannot  change  until  enough  of  these  molecules  are 

formed  by  the  three-body  recombination  reaction  O  +  Og  +  M - r-»-Og  +  M 

tc  start  increasing  the  number  present.  They  are  removed  by  photodissociation 
with  a  time  constant  of  about  100  secs.  After  this  time,  the  recombination  rate 
equals  the  photodissociation  rate  causing  the  ozone  concentration  to  level  off  at  a 
value  established  by  the  equilibrium  concentration  of  atomic  oxygen. 

The  time  constants  for  the  removal  of  N00  are  all  greater  than  10^  secs. 

4  -  “ 

However,  by  10  secs,  the  two-body  aton.  recombination  reaction  O  +  Ng-;:-*~NgO  +  hr 
has  formed  a  sufficient  number  of  these  molecules  to  start  increasing  its  concen¬ 
tration.  Its  density  increases  by  this  process  and  continues  to  do  so  until  the  re- 

5 

moval  processes  become  effective  alter  10  secs. 

The  time  constant  for  the  removal  of'nitric  oxide  by  the  three-body  recombination 

4 

reaction  O  +  NO  +  M — »»-NOg  +  M  is  about  10  secs.  .Before  any  NO  molecules  can 
be  removed,  however,  their  production  by  the  neutral  rea  rangement  reaction 
O+NOg-^NOg  +  02  becomes  effective.  Around  io^se^c  the  rates  of  these  two 
processes  become  equal  which  is  the  reason  for  there  being  no  change  in  the  NO 
concentration.  The  atomic  nitrogen  concentration  remains  constant  until  about 
100  secs,  the  time  constant  for  the  removal  process  :N  +  O — i*rNQ'+  hr  ,  when  its 
concentration  starts  to  decrease.  When  the  rate  of  this  remove  reaction  becomes 
equal  to  the  rate  of  formation  of  atomic  nitrogen. by  the  photodissociation  of  NgO  , 
the  N  concentration  goes  into  quasi-equilibrium  with  N90  . 

There  is  no  effective  removal  process  for  NOg  molecules  at  early  times. 

The  time  constant  for  their  removal -by  the  neutral  rearrangement  reaction 
O  +  NOg-^— *-NO  +  Og  le-abpyi  2  secs. 'By  10  secs,  however,  their  rate  of  produc¬ 
tion  by  the  three-body  recombination  O  +  NO  +  M — “-NOg  +  M  is  sufficient  to 
balance  their  removal  rate  thus  preventing  any  further  change  in  their  concentration. 

The  electron  density  increases  with  unit-slope  at  early  times  as  electrons  are 
formed  by  the  -onstant  source.  By  0.  1  see,  0.  1122  electrons  are  produced.  During 
this 'time,  the  Og  concentration  increases  with  slope  2  as  this  ion  is  formed  by  the 
three-body  attachment  reaction  Og  +  e  +  Og — »~Og  +  Og  .  The  time  constant  for 
the  removal  of  electrons  by  this  three-body  attachment  is  about  0.  8  sec.  It  was 
expected  that  Og  photodetachment  become  effective  around* this  time,  causing  a 
balance  between  the  attachment  and  detachment  and. putting  the  Og  density  into 
quasi-equilibrium  with  the  electron  density.  This  quasi-equilibrium  effect  is  clearly 
seen  in  Figure  7  of  Keneshea  (1963).  The  time  constant  for  photodetachment  is 
about  2  secs,  however,  so  that  the  production  of  Og  by  attachment  continues, 
causing  the  electron  density  to  decrease.  Another  important  removal  process  for 
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Og  ions  is  the  charge  transfer  reaction  09  +  Og— »-Og  +  Og  .  Because  of  the  in- 
increasing  Og  density  after  1,0  secs,  it  is  not  possible  to  fix  a  definite  time  con¬ 
stant  to  this  reaction.  The  final  equilibrium  between  tl  t;  electrons  and  tire  Og  ions 
iis  determined  by  the  ozone  equilibrium  concentration:  This  behavior  can  be  under¬ 
stood  if  the  Ot)  to  electron  ratio  is  determined  from  equilibrium-considerations. 
The  O'  differential  equation  at  equilibrium  is  essentially 


dN(Og) 

dt 


-N(Og) 


N(03).kg6+ki 


+  N(02)2  •  N(e)  •  kg  j  =  O 


Prom  Eq.  ('1),  the  ratio  of  Q0  to  electrons  is 


N(Oj  N(0.,)2  •  k,4 

=  NiOg)  •  kn6  +  k1 


W) 


(5) 


It  is  obvious  that  this  ratio  depends  only  ondhe  ozone  concentration.  After  100  secs, 
the  electron  concentration  returns  to  a  linear  increase  resulting  from  the  production 
by  the  source  and  goes  into  equilibrium  when  the  rate  of  production  by  the  source 
equals  the  rate  of  removal  by  dissociative  recombination  with  NG+  . 

The  O”  concentration  increases  at  early  times  with  a  slope  of  2  as  this  ion 
is  formed  by  the  dissociative  attachment  reaction  Og  +  e—*rO  +  Og  .  The  time 
constant  for  the  associative  detachment  reaction  O  +  N9— »-N90  +  e  is  about 
6  X  10  secs  around  which  time  removal  of  this  ion  becomes  effective.  As  the 
concentration  of  09  increases,  the  charge  transfer  reaction  09  +  O— »-0  +  Og 
eventually  becomes  effective  in  forming  O'  ions.  Around  1  sec,  the  density  of 
this  ion  goes  into  quasi-equilibrium  with  the  electrons  and  09  as  the  rate  of 
formation  by  the  dissociative  attachment  and  the  charge  transfer  equals  the  removal 
rate  of  the  associative  detachment.  Because  of  its  quasi-equilibrium  status,  the 
O'  concentration  '■ontinues  to  increase  after  1  sec.-  Around  100  secs,  the  concen¬ 
trations  of  ozone  and  O'  have  reached  values  that  make  the  removal  of  this  ion 
by  the  charge  transfer  reaction  O'  +  Og — "-Og  +  O  become  Important.  The  final 
equilibrium  level  of  O'  and  its  ratio  to  the  electron  density  are  determined  by  the 
equilibrium  value  of  ozone. 

At  early  times,  the  Og  concentration  increases  with  a  slope  of  3  being  formed 
by  the  charge  transfer  reaction  09  +  Og — f*~Og  +  09  .  Before  the  O  density 
changes,  the  time  constant  for  the  removal  of  this  ion  by  the  associative  detachment 
reaction  Og  +  O  — »-.209  +  c  is  about  2  secs.  As  the  concentration  of  atomic  oxygen 
increases,  this  time  constant  becomes  smaller.  When  both  atomic  oxygen  and  ozone 
reach  equilibrium  values,  the  Og  concentration  goes  into  equilibrium  at  a  ratio  to 
the  09  density  that  is  established  by  the  atomic  oxygen  and  the  ozone  concentrations. 
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The  NO.,  concentration  increases  at  early  times  with  a  slope  of  3  since  it  is 
formed  by  the  charge  transfer  reaction  02  +  NO., — *-NO,>  +  O,,  .  As  long  as  the 
ozone  concentration  is  constant,  the  time  constant  for  the  removal  of  this  ion  by 
the  charge  transfer  reaction  NO,  +•  Og — »-N09  +  is  about  2  secs.  This  is  the 

same  time  that  the  ozone  concentration  starts  to  increase,  causing  the  rate  of  the 
charge  transfer  to  to  become  much  larger  than  the  rate  of  the  charge  transfer 
to  NO.,  .  This  causes  the  NOj  concentration  to  decay.  This  decay  continues 
until  the  ozone  concentration  reaches  a  constant  value,  causing  the  N09  density 
to  go  into  equilibrium  at  a  fixed  ratio  to  the  O,  density. 

The  concentrations  of  both  O  and  N9  increase  linearly  at  early  times  as 
these  ions  are  formed  by  the  constant  source.  The  time  constant  for  ’.‘ie  removal 
of  0+  ions  by  the  charge  transfer  reaction  0+ +  0,, — ,-02+0  is  about  3X10  ^secs 

while  the  time  constant  for  the  removal  of  N’t  ions  by  the  charge  transfer  reaction 

T  +  -5  ^ 

N,,  +  O.5 — »-09  +  Nr>  is  about  1  X-10  secs.  Around  these  times,  therefore,  the 

charge  transfer  rates  become  equal  to  the  rates  oTproduction  of  these  ions  by  the 

+  4* 

source  and  their  concentrations  go  into  equilibrium.  All  O  and  N„  ions  pro- 
duced  by  the  source  after  this  time  immediately  transfer  their  charge  to  form  02 
ions. 

The  O.,  concentration,  increases  at  early  times  because  of  the  production  by 

“  4. 

the  constant  source  and  the  transfer  of  charge  from  the  N2  ions  as  the  latter  are 

formed  by  the  constant  source.  The  charged  rearrangement  reaction 
+  + 

09  +  N9 — »-NO  +  NO  has  a  time  constant  of  about  50  secs.  After  this  time,  the 
09  goes  into  equilibrium  at  a  value  that  is  determined  by  the  balance  between  the 
source  function  and  the  charged  rearrangement  reaction. 

The  NO  concentration  builds  up  with  a  slope  of  2  at  very  early  times  through 
its  formation  by  '.,,e  charged  rearrangement  reaction  0  +  N9- — *-NO  +  N.  When 
O  goes  into  equilibrium,  the  slope  of  the  NO  profile  changes  to  1.  By  0.  1  sec, 

4*  4.  4. 

enough  09  ions  are  formed  to  make  the  charge  transfer  process  02  +  NO— »-NO  +  02 

become  more  important  in  the  formation  of  NO+  ions,  causing  the  slope  to  change 
4*  4- 

backto  2.  When  09  goes  into  equilibrium,  the  NO  concentration  reverts  to  unit 

“  3 

slope  increase.  The  time  constant  for  dissociative  recombination  is  about  10  secs 

4-  4* 

after  which  time  the  production  rate  of  NO  by  charge  transfer  from  09  equals 

4.  ^ 

the  removal  rate,  causing  the  NO  concentration  to  go  into  equilibrium. 

Figure  2  shows  the  solution  at  110  km  with  zero  initial  concentrations  of  the 

ionized  species  and  estimated  initial  concentrations  of  the  minor  neutral  species. 

There  is  a  continuing  constant  source  producing  ion-pairs  at  the  rate  of 

2  X  lO'Vcm^/sec. 
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The  time  constants  of  the  processes  that  remove  atomic  oxygen  are  greater 
than  10‘  secs.  The  increase  in  the  density  of  this  atom  at  late  times  results  from 
the  photodissociation  of  Og  .  The  time  constants  of  the  processes  that  remove  N, 

NO,  and  N90  are  all  greater  than  10^  secs.  The  atomic  nitrogen  concentratior 

*  ‘  + 
increases  at  late  times  because  the  dissociative  recombination  of  NO  has  started 

to  form  a  sufficient  number  of  these  atoms  to  start  increasing  iheir  concentration. 

The  associative  detachment  reaction  O’  +  N0 — N„G  +  e  lias  formed  about 
6  5  i  i 

10  N90  molecules  in  10  secs  which  accounts  for  the  slight  increase  in  their  conr 

centration  at  very  late  times.  The  increase  in  the  NO  density  at  late  times  results 

from  the  increasing  N  and  O  concentrations  in  the  two  body  atom  recombination 

reaction  N  +  O— —NO  +  hr  . 

The  ozone  concentration  remains  constant  until  about  100  secs  when  Og  starts 
to  be  removed  by  photodissociation.  The  time  constant  for  the  two-body  atom 
recombination  reaction  O  +  O^-— Og  +  hr  is  about  600  secs.  After  thisitime, 
the  ozone  concentration  goes  into  equilibrium  which  is  established  by  the  atomic- 
oxygen  concentration.  The  increase  in  Og  at  late  times  is  caused  by  the  increasing 
oxygen  supply  for  the  two-body  atom  recombination  reaction.  The  time  constant 
for  the  neutral  rearrangement  reaction  O  +  NOg — —NO  +  Og  is  about  1  sec.  After 
this  time,  the  N02  concentration  decays  until  the  rate  of  removal  isreduced  to  the 
rate  of  formation  by  the  two-body  atom  recombination  reaction  O  +  NO — —NO,  +  hr 
when  the  NO.;  concentration  remains  at  the  equilibrium  valu°  established  by  these 
reactions. 

The  electron  concentration  increases  at  early  times  with  unit  slope  as  they  are 

3 

formed  by  the  constant  source.  By  1  sec,  2  X  10  electrons  are  formed.  The  time 

4. 

constant  for  the  09  dissociative  recombination  is  about  50  secs  around  which  time 
the  rate  of  production  by  the  source  and  the  rate  of  removal  by  dissociative  recom¬ 
bination  become  equal  and  the  electron  concentration-goes  into  equilibrium.  The 
most  important  formation  process  for  O  ions  is  the  radiative  attachment  reaction 
O  +  e— —  O  +  hr.  The  O  concentration  increases  with  a  slope  of  2  as  this  ion  is 
formed  by  this  process.  The  time  constant  for  O  photodetachment  is  about  0. 75 
sec  when  their  removal  starts  to  become  effective  am  they  assume  a  constant  ratio 
to  the  electrons.  The  increase  in  the  O  concentration  at  late  times  reflects  the 
dependence  of  the  equilibrium  value  of  this  ion  on  the  atomic-oxygen  concentration. 

At  early  times,  the  02  concentration  increases  with  a  slope  of  2  as  it  is 
formed  by  the  three-body  attachment  reaction  O,,  +  e  +  M— —  Og  +  M  .  There  are 
two  important  removal  processes  for  this  ion  both  with  time  constants  of  about  2 
secs.  These  are  the  photodetachment  and  the  charge  transfer  reaction 
02  +  0— — O’+Og  .  Around  this  time  Og  goes  into  quasi-equilibrium  with  the 
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electrons  and  assumes  a  fixed  ratio  to  them.  At  very  late  times,  the  increasing 
atomic-oxygen  concentration  increases  the  rate  of  removal  of  Og  by  the  charge 
transfer,  causing  the  Og  concentration  to  decrease  and  thereby  change  the  ratio 
established  between  Og  and  the  electrons. 

The  Oj  ions  are  formed  primarily  by  the  two-body  ion-neutral  association 
reaction  O"  +  Og — *-03  +  hr  •  The  Og  density  increases  with  a  slope  of  3  at 
early  times  as  they  are  formed  by  this  process.  The  time  constant  for  the  associa¬ 
tive  detachment  reaction  Og  +  O— *-Og  +  e  +  02  is  about  0.  1  sec  after  which  time 
it  becomes  effective  in  removing  0,  ions  and  causes  their  concentration  to  remain 

“  A 

at  a  constant  ratio  to  the  electrons.  This  ratio  is  no  longer  constant  after  10  secs 
because  the  rate  of  the  associative  detachment  reaction  increases  with  the  increas¬ 
ing  atomic-oxygen  concentration. 

The  NOg  concentration  increases  with  a  slope  of  3  at  early  times  as  it  is 
formed  by  the  charge  transfer  reaction  O  t-  N02 — »-NOg  +  O  •  Changes  in  slope 
are  dictated  by  the  O-  and  NC>2  curves.  The  time  constant  for  NOg  photo¬ 
detachment  is  about  25  secs  after  which  time  quasi-equilibrium  with  O-  is 
established. 

The  O'  and-  Ng  concentrations  increase  with  unit  slope  at  early  times  through 
their  for.mr.iitrrby  the  constant  source.  The  time  constant  for  the  charge  transfer 
reaction  0+ +  Og — ►•Og  +0  is  about  0. 07  sac.  After  this  time,  the  removal  of 

0+  ions  becomes  effective  and  quickly  equalizes  the  production  by  the  source  forcing 

4*  4" 

the  O  concentration  into  equilibrium.  Removal  of  N2  ions  starts  around  0. 02 

sec  which  is  the  time  constant  for  their  removal  by  the  charged  rearrangement 

reaction  N 2  +  O  — »-NO+  +  N  .  The  equilibrium  value  of  N*  is  the  result  of  the 

balance  achieved -between  the  source  and  the  charged  rearrangement.  The  decay 
4*  4 

of  Ng  after  10  secs  is  simply  the  result  of  the  increasing  rate  of  the  charged 

rearrangement  reaction  resulting  from  the  increasing  atomic-oxygen  concentration. 

4*  4* 

Any  further  production  of  O  and  Ng  ions  by  the  source  after  they  have  gone  into 
equilibrium  is  immediately  transferred  into  Og  ions. 

The  09  concentration  increases  with  unit  slope  until  about  50  secs  when  dis- 
sociative  recombination  starts  to  remove  tnem.  By  100, secs,  the  Og  concentra¬ 
tion  reaches  an  equilibrium  determined  by  the  source  and  the  dissociative  recqm- 

bination.  At  late  times,  the  charged  rearrangement  reaction  ot  +  N— »-NO+  +  O 

+  ^  4*  4 

becomes  important  to  the  equilibrium  of  Og  .  The  decrease  in  Og  after  10  secs 

is  caused  by  the  increased  rate  of  tins  reaction  as  the  density  of  atomic  nitrogen 

increases.  The  major  source  of  NO+  ions  at  early  times  is  the  charged  rearrange- 
4-  +  + 

ment  reaction  N9  +0— *~NQ  +  N.  The  NO  concentration  increases  with  a 

4* 

slope  of  2  until  Ng  goes  into  equilibrium  at  which  time  the  slope  of  the  NO  pro¬ 
file  changes  to  unity.  Around  50  secs,  the  charged  rearrangement  reaction 
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4*  +  +  .  . 

Og  +  N — *-N0  4*  O  becomes  the  important  formation  process  for  NO  ions.  This 

is  also  the  time  that  the  dissociative  recombination  becomes  effective  in  removing 
these  ions.  The  equilibrium  value  of  NO+  is  determined. by  the  balance  between 
the  charged  rearrangement  reaction  and  the  dissociative  recombination.  The  in- 
crease  in  the  NO  concentration  at  late  times  results  from  the  increased  produc¬ 
tion  by  the  charged  rearrangement  reaction  as  the  atomic-nitrogen  density  increases. 

Figure  3  shows  the  solution  at  70. km  assuming  high  initial  concentrations,  such 

4*  4-  _4* 

as  during  a  nuclear  blackout,  for  the  electrons,  O  ,  02 ,  and  N2  ,  zero  concen¬ 
trations  of  the  other  charged  species  and  estimated  initial  concentrations  for  the 
minor  neutral  species.  A  small  continuing  source  of-0.  1  ion-pairs/cm  /sec  is 
used.  The  time  constant  for  dissociative  recombination  is  very  short  (about  0.  2 
sec)  because  of  the  high  initial  concentrations  of  electrons  and  02  ions.  The 

electrons  remain  constant  until  this  time  and  they  start  to  decay  by  dissociative 
4* 

recombination  with  Og  and  three-body  attachment  to  02  . 

The  O"  concentration  increases  linearly  from  early  times  by  the  three-body 
attachment  reaction  02  +  e  +  Gg— »-02  4  °2  ‘  This  increase  continues  until  about 
1  sec  which  is  the  time  constant  for  02  photodetachment.  The  charge-transfer 
reactions  02  +  O— <-0"  +  02  and  °2  +  °3~ +  02  also  become  effective  in 
removing  Oj  after  1  sec.  By  50  secs,  the  Oj  concentration  has  gone  into  quasi¬ 
equilibrium  with  the  electrons,  O  ,  and  Og  .  The  behavior  of  the  negative  ions 
after  they  have  gone  into  quasi-equilibrium  can  be  understood  by  looking  at  their 
equilibrium  equations.  The  differential  equation  for  Og  in  equilibrium  can  be 
written  as 

k!  +  N(0)  •  kg4  +N(Og).k96 

(e)  •  k24  =  O  .  (6) 

Solving  Eq.  (6)  for  the  ratio  N(09)/N(s)  gives 
N(0‘)  N2(Os)-k24 

N(e)  ‘=  (kj+ N(O)  -k94  + N(Og)  -k9(.)  *  {7) 

As  long  as  the  O  and  Og  concentrations  are  increasing,  this  ratio  becomes 
smaller  and  smaller  assuming^  constant  value  only  when  O  and  Og  go  into 
equilibrium. 


dN(o:> 

-TT2-  '  -n(°2> 


+  N^(0„)  -  I 


LOG  CONCENTRATION -number/cm3 


Figure  3.  Solution  at  70  km  with  High  Initial  Electron  Concentration 
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The  O"  concentration  increases  with  unit  slope  at  early  times  as  this  ion. is 
formed  by  the  associative  detachment  reaction  Og  +  e-«-0~  +  02  .  The  formation 
of  O  ions  by  the  charge  transfer  reaction  cC  +  O— +  0o  becomes  effective 
around  10  '  secs.  The  time  constant  for  removal  of  0~  ions  by  the  associative 

_  _  9 

detachment  reaction  O  +  N2 — »-N20  +  e  is  about  10  secs.  This  reaction  starts 
to  consume  this  ion  after  this  time  and  by  1  sec  the  O-  concentration  goes  into 
quasi-equilibrium  with  the  electrons,  O'  ,  O  ,  and  C>3  .  The  differential  equation 
for  O  at  equilibrium  is 


dN(Q~)- 

dt 


-N(0~) 


N(N2)  -kn+  N{03)  -kg3 


+  N(02)  •  N(O)  *  k24  =  O  . 


+  N(Os)  •  N(e)  •  k20 


(8) 


Solving  Eq.  (8)  for  the  ratio  N(Oj/N(e)  gives 

n(o:> 

NfCM  _  N(Q3)  *  k20  +  N(e)  ‘  N(Q)  *  k04 
N(e)  "  N(N2)  -kn  +  N(03)-k93  * 

The  ratio  N(Q  )/N{e)  is  not  a  simple  one  but  it  is  obvious  that  it  depends  only  upon 
the  O  and  03  concentrations  and  becomes  constant  only  when  O  and  Og  go  into 
equilibrium. 

The  03  concentration  increases  with  a  slope  of  2  at  the  beginning  as  this  ion 
is  formed  by  the  charge  transfer  reaction  02  +  Og— »-Og  +  O,,  .  The  time  con¬ 
stant  for  the  associative  detachment  reaction  Og  +  O— *-2O0  +  e  is  about  1  sec. 
Shortly  after  this  time,  the  detachment  rate  becomes  equal.to  the  charge  transfer 
rate,  causing  the  03  concentration  to  go  into  quasi-equilibrium  with  the  electrons, 
O  ,  and  Og  .  The  differential  equation  for  Og  at  equilibrium  can  be  written  as 

dN(0") 

— t  =  -N(03)  •  NfO)  •  k1G?  +  N{02)  •  N(03)  •  k9{.  =  O  .  (10) 


Solving  Eq.  (10)  for  the  ratio  N(Og)/N(e)  gives 
N(0“)  N(03)  .  k0fi  *  N2(02)  •  kZ4 

N(e)  =  N(0)  *k167  (Kj+  mO)  *k94  <  N(03)  ’  k^j  *  (1 

This  ratio  depends  only  upon  the  concentration  of  O  and  Og  and  becomes  con¬ 
stant  when  O  o  id  Og  go  into  equilibrium. 
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The  NOg  ions  are  formed  atrearly  times  by  the  three-body  attachment  re- 

“  -  -  3  - 

action  N02  +  c  +  02 — ‘‘“NO,,  +  O,  .  By  10  secs,  there  are  enough  09  ions 

around  to  make 'the  charge  transfer  reaction  C>2  +  N02 — — -NO^  +  02  more  important 

in  forming  NO,  ions  accounting  for  the  change  of  slope  to  2.  The  time  constant 

for  the  charge  transfer  reaction  N09  +  03 — —NO.,  +  Oj  is  about  3  secs.  Shortly 

after  this  time  the  N02  concentration  goes  into  quasi-equilibrium  with  0~  ,  02  , 

and  .  The  differential  equation  for  NO,  at  equilibrium  is 

=  -n(no2)  •  n(o3)  •  kg7  +  N(Og)  *  n(no2)  •  k98 

+  N(O')  •  N(N09)  •  kos  =  O  .  (12)' 

Solving  Eq.  (12)  for  the  ratio  N(N0,)/N{02)  gives 
NtOj 

N(NO')  N<0~)  ’  N(N02)  ‘  k98  +  N(N02)  *  k95 

N(02)~  =  N(03)"*  k97  *  (13) 

From  Eq.  (13)  it  is  obvious  that  the  ratio  N(NO,)/N(0~)  is  solely  a  function  of 

NO,,  ,  O  ,  and  03  and  that  this  ratio  becomes  constant  only  when  NO,  ,  O  ,  arid 

Oo  go  into  equilibrium. 

J  +  * 

The  O  and  N,  concentrations  decay  at  early  times  by  charge  transfer  to 
02  .  The  concentrations  of  both  of  these  ions  continues  to  decay  until  the  rate  of 
removal  is  reduced  to  the  small  rate  of  production  by  the  source  function  and  they 
go  into  equilibrium.  The  O*  concentration  increases  at  very  early  times  as  these 

**  »$«  ij» 

ions  are  formed  by  charge  transfer  from  N,  .  This  increase  stops  when  the  N, 
is  effectively  consumed.  The  time  constant  for  O*,'  dissociative  recombination  is 
about  0.  2  sec  around  which  time  these  ions  start  to  be  removed.  The  mutual 
neutralization  reaction  O,  +  0*—-"-0,  +  O,  and  the  charge  transfer  reaction 

-f  -f  “  ~  w 

O,  +  NO — *-NO  +  O,  both  have  time  constants  of  about  2  secs  when  they  become 

£  -  +  + 
effective  in  removing  the  O,  ions.  These  processes  continue  to  remove  02 

until  its  concentration  goes  into  equilibrium  when  the  rates  of  removal  equal  the 

small  rate  of  production  by  the  constant  source. 

NO  ions  are  formed  at  early  times  by  the  charge  transfer  reaction 
*4*  *4*  -f  >4* 

Ng  +  NO — —NO  +  N2  .  When  the  supply  of  N2  is  used  up,  NO  is  formed  at  about 

equal  rates  by  the  charge  transfer  reaction  ot  +  NO— NO+  +  O,  and  the  charged 

rearrangement  reaction  O,  +  N,‘ — —NO  +  NO  .  The  time  constant  for  NO  dis- 

"  ‘  4- 

sociativc  recombination  is  about  0.  1  sec  around  which  time  removal  of  NO  becomes 
effective.  At  about  3  secs  removal  and  production  of  NO+  become  equal.  The  pro- 
duction  of  NO  becomes  constant  around  200  secs  when  02  goes  into  equilibrium. 
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After  this  time  the  NO  concentration  decays  by  dissociative  recombination  along 
with  the  electron  concentration  until  the  removal  rate  by  recombination  equals  the 
production  rate  from  02  and  the  NO  concentration/goes  into  equilibrium. 

The  atomic  nitrogen  concentration  increases  at  early  times  as  a  product  of  the 

+  4.  +» 

charged  rearrangement  reaction  N9  +  O — *~NO  +  N  .  When  N9  has  decayed  away 

this  production  of  N  atoms  stops.  By  10~“  secs,  enough  N  atoms  are  formed!  as 
+ 

a  product  of  the  NO  dissociative  recombination  to  start  increasing  the  N  con¬ 
centration.  The  neutral  rearrangement  reaction  N  +  NO— »-N9  +  O  has  a  time 

3  “ 

constant  of  about  10  secs.  Around  this  time,  the  production  of  N  atoms  by  dis¬ 
sociative  recombination  lias  slowed  down  because  of  the  decaying  NO+  concentra¬ 
tion  allowing  these  atoms  to  be  consumed  by  the  neutral  rearrangement.  At  very 

*4* 

late  times,  NO  dissociative  recombination  ceases  to  be  the  important  formation 
mechanism-for  N  atoms  because  of  the  relatively  low  NO  concentration.  The 
important  formation  process  for  N  atoms  becomes  the  photodissociation  of  N90 
which  has  formed  about  5X  10  !  atoms  in  10 **  sees.  The  atomic  nitrogen  concen¬ 
tration  after  10^  secs,  therefore,  is  determined  by  the  neutral  rearrangement  and 
the  photodissociation. 

The  time  constant  for  the  removal  of  N02  by  the  neutral  rearrangement  re¬ 
action  O  +  NG9 — <*-NO  +  02  is  about  5  sees.  The  N09  concentration  remains 

constant  up  to  about  0.  1  sec  by  which  time  the  three-body  atom  recombination 

2 

reaction  O  +  NO  +  M-*-N02  +  M  has  formed  about  10“  of  these  molecules.  This 
is  sufficient  for  the  N09  concentration  to  show  an  increase.  By  10  secs,  the 
neutral  rearrangement  balances  the  three-body  atom  recombination  forcing  the 
N09  concentration  into  equilibrium.  The  fact  that  O  is  involved  both  in  the  pro¬ 
duction  and  removal  processes  makes  NO,  independent  of  O  . 

The 'behavior  of  N90 , 03  ,  and  atomic  oxygen  are  essentially  the  same  as 
shown  in  Figure  1. 

Figure  4  shows  thebehavior  at  110  km  of  initial  high  ionization  and  a  very  small 

8  3 

continuing  source.  Initially  there  are  10  electrons/cm  with  equal  positive  ioniza- 

44  4* 

tion  partitioned  among  O  ,  09  ,  and  N9  according  to  the  relative  amounts  of  the 
corresponding  neutral  species  present.  The  negative  ions  and  NO  have  zero 
initial  concentrations  while  the  minor  neutral  species  start  out  atestimated  initial 

9 

concentrations.  For.  convenience,  a  small  constant  source  of  0.  1  ion-pairs/cm'  / sec 
is  used. 

4  4 

The  time  constant  for  O.,  and  NO  dissociative  recombination  is  about  0.  23 

sec  because  of  the  high  ion  and  electron  concentrations.  The  electron  density 

remains  constant  until  about  0.25  sec,  therefore,  and  decays  by  the  simple  re- 

4- 

combination  law  after  this  time.  Around  10  secs,  the  rate  of  removal  of  electrons 

by  recombination  equals  the  rate  of  formation  by  the  small  continuing  source, causing 

4 

the  electron  concentration  to  go  inU  equilibrium.  The  09  concentration  remains 


DAYTIME  CONDITIONS 
CONSTANT  NCOgJ^.ASxIol'/cm3 
CONSTANT  N(NZ)  =1.62  x  lO'Vcm 
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constant  at  early  times  with  a  slight  increase  aroung  10  secs  because  of  the  in- 
creased  production  rate  of  the  charge  transfer  reaction  N,  +  09— *-0,,  +  N9  . 

Around  0.  25  sec,  dissociative  recombination  becomes  effective  in  removing  this 
ion, causing  it  to  go  into  a  recombination-typedeeay.  By  50  secs,  however,  the 
time  constant  for  02  dissociative  recombination. has  become  rather  long  becai.se 
of  the  much  lower  electron  concentration  at  this.  time.  The  ime  constant  for  the 
charged  rearrangement  reaction  09  +  N  -r-NO  *■  O  is  about  50  secs.  Around 

^4. 

this  time,  therefore,  the  removal  of  09  is  accomplished  by  the  charged  rearrange- 
ment  which  has  become  faster  than  the  dissociative  recombination.  The  Og  con¬ 
centration  goes  into  equilibrium  when  the  rate  of  removal  by  charged  rearrangement 
equals  the  rate  of  formation  by  the  small  constant  source.  The  NO  concentration- 
increases  wiihiunit  slope  at  the  start  of  the  solution  as  this  ion  is  formed  by  the 

4*  4- 

charged  rearrangement  reaction  N0  +  O — »-NO  +N.  This  increase  continues  until 
about  0.  25  sec  which  is  the  time  constant  for  NO  dissociative  recombination. 

After  this  time,  the  NO+  concentration  decays  by  the  simple  recombination  law. 

Around  10  secs,  the  production  of  NO  by  the  charged  rearrangement  reaction 

4*  4*  4* 

09+N— *-NO  +0  becomes  effective.  When  the  09  density  is  sufficiently  re¬ 
duced,  the  charged  rearrangement  reaction  becomes  ineffectual  and  the  NO+  decay 
returns  to  the  recombination  law. 

4- 

The  lime  constant  for  the  rcmovaLof  O  ions  by  the  charge  transfer  reaction 

4*  4*  4- 

O  +  Q  — *-09  +  O  is  about  0.07  sec  around  which  time  the  O  concentration 

starts  to  decay.  This  removal  continues  until  about  1  sec  when  the  charged  rear- 

•  f  + 

rangement  reaction  09  +  N— *-0  +  NO  becomes  effective  in  forming  tins  ion  and 
around  7  secs  the  0+  concentration  goes  into  quasi-equilibrium.  The  differential 
equation  for  0+  at  equilibrium  can  be  written  as 


dN(Q*) 

dt 


-N(0+)  •  [  N(09)  •  kg 3  +  N(N2)  •  kn6]  +  NfO*)  •  N(N)  •  k1J8  +  q  =  O  . 


Solving  Eq.  (14) -for  N(0+)  gives 


04) 


N(0+) 


q  +  N  (02)  •  N(N)  .kU8 
N(02)  '  kg3  +  N(N2)  •k11g 


(15) 


From  this  result  it  is  obvious  that  the  variation  in  the  0+  concentration  must  fol- 

4* 

low  the  variation  in  the  02  concentration.  This  is  the  reason  for  the  linear  de¬ 
crease  around  10  secs.  When  the  rate  of  the  charged  rearrangement 
Hh  4 

O,  +  N-*-0  +  NO  becomes  smaller  than  the  production  rale  of  the  continuing 
source,  the  O  density  becomes  constant. 
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The  time  constant  for  the  removal  of  N9  by  the  charged  rearrangement  re¬ 
action  N9  +  O— »-NO+  +  N  and  the  charge  transfer  reaction  Ng  +  09 — »-09  +  N9 
is  about  0.  02  sec.  The  N9  concentration  decays  alter  this  time  until  the  rate  of 

“  *f 

removal  equals  the  ro.te  of  formation  by  the  continuing  source  and  the  N2  concen¬ 
tration  goes  into  equilibrium. 

The  O"  concentration  inc  ases  with  unit  slope  at  the  beginning  of  the  solution 
as  this  ion  is  formed  by  the  ra*  '  uive  attachment  reaction  O  +  e  — *-0"  +  hr  .  The 
time  constant  for  photodetachmeiii  from  O  is  about  0.75  sec  around  which  time 
the  detachment  rate  exceeds  the  attachment  rate,causing  the  0~  concentration  to 
decay.  The  density  of  O  does  not  go  into  quasi-equilibrium  with  the  electrons 
until  about  70  secs.  After  this  time,  the  O  density  assumes  a  constant  ratio  to 
the  electron  density.  The  09  concentration  also  increases  with  unit  slope  at  early 
times  as  this  ion  is  formed  by  the  three-body  attachment  reaction  09  +  e  +  M— *-09  +  M. 
Around  1  sec,  the  time  constant  for  photodetachment  from  and  the  charge  trans¬ 
fer  reaction  +  O— *-0"+  Oj,  ,  the  removal  rate  exceeds  the  forma* ion  rate, 
causing  09  to  decay.  Around  100  secs  the  09  concentration  goes  into  quasi¬ 
equilibrium  with  the  electrons  and  after  this  time  it  varies  at  a  fixed  ratio  to  the 
electron  concentration. 

The  concentration  increases  with  a  slope  of  2  at  ti  e  start  because  of  the 
formation  of  this  ion  by  the  ion- neutral  association  reaction  O"  +  O,, — *-0,j  +  hr  . 

The  associative  detachment  reaction  +  O  -*-202  +  e  has  a  time  constant  of  about 
0. 1  sec  after  which  it  exceeds  the  rate  of  attachment,  causing  the  Oj  to  decay. 

The  goes  into  quasi-equilibrium  around  5  secs  and  assumes  a  fixed  ratio  to 
the  electron  concentration.  The  N02  ions  are  formed  at  early  times  by  the  three- 
body  attachment  react;  a  NO.,  +  e  +  M — *-NO(>  +  M  .  The  N02  concentration  in¬ 
creases  with  unit  slope,  therefore,  before  10" secs.  As  the  O  concentration 
increases,  the  N09  production  process  changes  to  the  charged  transfer  reaction 
O  <■  N09 — *-N00  +  O  and  the  slope  of  the  NOg  profile  changes  to  2.  Around  1  sec, 
the  rate  of  photodetachment  exceeds  the  rate  of  the  charge  transfer,  causing  the 
N09  to  decay.  The  associative  detachment  reaction  NOg  +  O — +  NO  +  e  also 
becomes  effective  in  removing  this  ion  around  50  secs,  the  time  constant  for  this 
reaction.  After  10  secs,  the  production  falls  off  linearly  as  O"  decays  while  the 
phctodetachment  and  associative  detachment  a.re  removing  this  ion  very  rapidly, 
causing  the  sharp  decrease  between  10  and  100  secs.  This  removal  continues  until 
the  rate  of  the  charge  transfer  reaction  again  becomes  equal  to  the  rate  of  photo  - 

detachment  and  associative  detachment  and  the  N09  concentration  remains  fixed 

_  -  4 

at  a  constant  ratio  to  the  O  concentration.  The  slight  increase  after  10  secs 
reflects  the  quasi-equilibrium  dependence  of  this  ion  on  the  atomic  oxygen 
concentration. 


2D 
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The  atomic  nitrogen  starts  to  increase  around  10  secs  because  of  the  pro¬ 
duction  of  this  atom  by  NO*  dissociative  recombination.  When  the  ionization  starts 
to  decay,  this  production  stops,  causing  the  atomic-nitrogen  concentration  to  become 
constant  again.  The  decay  after  104  secs  is  caused  by  the  increasing  oxygen  concen¬ 
tration  in  the  recombination  reaction  N  +  0-*-NO  +  hr  .  The  behavior  of  the  other 
minor  neutral  species  is  the  same  as  given  in  the  description  of  Figure  2. 


5.  TUB  DIURNAL  VARIATION  OF  THE  ATMOSPHERIC  CONSTITUENTS 

The  basic  code,  as  presented  in  Section  6.  1,  is  ideally  suited  to  such  phenomena 
as  the  short-time  effects  on  the  atmosphere  resulting  from  the  detonation  of  nuclear 
weapons.  The  major  source  of  the  data  oh  ionospheric  parameters,  however,,  is  to 
be  found  in  experimental  studies  of  the  natural  ionosphere.  These  include  ground- 
based  probing  techniques,  measurements  made  in  aircraft.and  insitu  measurements 
made  with  rockets.  These  experimental  measurements  cover  most  of  the  basic 
ionospheric  characteristics  of  importance.  In  order  to  utilize  these  data  for 
reaction-rate  studies,  for  which  this  code  is  basically  written,  additions  to  the 
code  are  necessary  so  that  it  can  solve  the  diurnal  variation  problem. 

For  this  application  it  is  required  that  the  production  of  ionization  by  solar 
radiations  be  known  as  a  function  of  the  solar  zenith  angle.  The  code  must  also  be 
capable  of  computing  the  local  solar  time  for  the  location  at  which  the  computations 
are  being  made.  The  changes  required  in  the  deionization  code  for  the  computation 
of  the  diurnal  variation  of  the  atmospheric  species  are  discussed  in  Section  7.  2. 


«>■  1  The  I'holoioniznlion  Source  Function 

In  order  to  compute  the  diurnal  variation  of  the  atmospheric  constituents,  the 
production  of  ionization  by  direct  and  scattered  solar  radiation  as  well  as  that  pro¬ 
duced  by  cosmic  rays  is  required. 

Let  ^  (AA)  be  the  photon  flux  incident  on  the  top  of  the  atmosphere  and 
( AA)  be  the  photon  flux  arriving  at  some  height  z  in  the  wavelength  region 
AA.  Then 


*z<AA>  =  V^>e"T(AA>  (16) 

where  r(AA)  is  the  optical  depth  for  energies  in  the  wavelength  region  AA  .  If 
only  atomic  and  molecular  oxyge.nand  molecular  nitrogen  are  considered  to  be  ab¬ 
sorbers  of  this  radiation,  then  the  optical  depth  can  be  written  as 
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r(AX)  =  7q(AX) +  rn  (A,\)+rM  (AX) 


Nn 


(17) 


The  optical  depth  for  each  of  the  constituents  is  defined  as 


t0(AX)  =  oq(AX)  •  j.  N(C)  •  dl 

z. 

r0^(AX)  =  aQU\)-J  N(02)-dl 


(18) 


(10) 


and 


rN^(AX)  =  o^(AX)  •  J  N(N2)-dl 


(20) 


f 

t 
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where  Oq(AX)  ,  oq  (AX)  ,  and  crN  (AX)  are  the  absorption  cross  sections  for 
atomic  oxygen,  molecular  oxygen,  and  molecular  nitrogen  respectively  and  the 

9 

integrals  represent  the  total  number  of  the  atoms  or  molecules  in  a  cm"  column 
extending  from  z  to  infinity  along  the  path  1. 

For  computing  the  photoionization  rates  only  those  wavelengths  capable  of  pro¬ 
ducing  ionization  have  to  be  considered.  The  first  ionization  potential  of  C>2  is  at 
1026.  5A,  while  the  first  ionization  potential  of  O  and  N2  are  at  shorter  wave¬ 
lengths,  In  considering  photoionization,  therefore,  it  is  necessary  to  take  into 
account  only  energy  fluxes  at  wavelength  below  1026.  5A. 

The  primary  electron  production  rate  at  altitude  z  resulting  from  the  ioniza¬ 
tion  of  O,  02  ,  and  N9  in  the  wavelength  region  1-1027A  can  be  written  as 

q  =  q(0+)  +  q(02)  +  q(N2)  (21) 


qUV{e) 


3 


i=l  AX 


Njijff!  ( AX )  AX  )e 


(22) 


where  the  oJ(AX)  are  the  ionization  cross  sections  for  the  various  constituents. 


31 


In  addition  to  this,  there  are  theelectrons  produced  by  the  ionization  of  nitric 
oxide  by  La  at  1215.  7A.  The  electron  production  rate  resulting  from  this 
mechanism. can  be  written  as 


q.  =  N(NO)  •  yo-'i NO)  •<>00;La)  -e 
ua 


(23) 


since  L„  is  absorbed  by  O0  .  For  ha  the  ionization  cross  section,  <r'( NO)  , 
w  . 13  9 

according  to  Watanabe  (1954),  is  2  X  10  cm  and  the  absorption  cross  section 

for  molecular  oxygen.  <r(09)  ,  according  to  Lee  (1955)  and  Ditchburn,  Bradley, 

“  -21  2  o 

Cannon,  and  Munday  (1954),  is  8.5  X10  cm  .  A  daytime  flux  of  3  ergs/cm"/sdc 

for  La  is  assumed  for  the  numerical  computations  in  this  paper. 

The  production  rate  of  electrons  by  energies  in  the  1-loA  region  is  given  by 


qx(e) 


3 


EE 

.  '  .  ■x- 


N.K(X)e 


(24) 


where  K(X)  is  the  ionization  coefficent  per  molecule  per  sec  at  2,  4,  and  6A. 

The  production  rate  of  electrons  by  cosmic  rays  used  in  this  work  is  simply 

qCR(e)  =  1.0X10"16-N7  (25) 

where  Nz  is  the  total  particle  concentration  at.  altitude 
The  total  daytime  production  rate  of  electrons  is 


q(e)  -*  quv(e)  +  n-L  ^  +  qCR^  +  qX^  *  (26) 

During  the  night,  in  addition  to  the  cosmic-ray  flux,  there  is  also  some  La 
and  Lp  flux  scattered  in  from  the  sunlit  atmosphere.  For  the  purpose  of  this 
work  it  was  assumed  that  one  percent  of  the  noontime  ha  flux  and  0.  1  percent 
of  the  noontime  flux  are  available  for  the  production  of  ionization  during  the 
night. 
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The  photon  fluxes  in  the  10-1027A  region  are  those  reported  by  Iiinteregger 

(I960).  The  1-iOA  X-  ray  ionization  coefficients  are  taker,  from  Nicolet  and  Aikin 

(1960)  assuming  slightly  disturbed  solar  conditions.  Table  1  shows  the  photon  flux 

in  each  wavelength  region  and  ionization  and  absorption  cross  sectionsTor  O  ,  C>2  , 

andNg,  as  given  by  iiinteregger  (I960).  For  broad  spectral  ranges,  mean  values 

of  the  ionization  cross  section  are  used.  Because  of  the  variation  of  the  cross 

sections  within  a  spectral  range,  especially  for  N2  ,  several  cross  sections  were 

used  within  the  range  with  equal  distribution  of  the  total  flux  within  the  range  over 

each  of  the  subdivisions.  The  ionization  efficiency  factor  is  >)  .  Its  value  is  one  for 

all  wavelengths  whose  energies  are  less  than  35  ev.  For  wavelengths  with  energies 

E 

greater  than  35  ev,  rj  is  given  by  1  =  gtj-  where  E  is  the  energy  of  the  photon  in  ev. 

Table  2  lists  the  concentrations  of  O  ,  O,  ,  and  N2  used  to  compute  the  column 
integrals.  The  concentrations  above  80  km  are  taken  from  the  COSPAR  International 
Reference  Atmosphere  (1965).  Concentrations  below  80  km  are  taken  from  Keneshea 
(1963).  A  description  of  the  photoionization  code  is  given  in  Appendix  A. 

The  electron  production  rate  at  noontime  by  the  external  production  function  is 
shown  in  Figure  5.  Above  90  km,  the  ionization  is  by  ultraviolet  and  soft  X-rays. 
Around  90  km,  the  ionization  is  produced  almost  exclusively  by  X-rays  in  the  35A 
region  while  around  80  km  the  production  is  primarily  the  result  of  the  ionization  of 
NO  by  La  .  By  60  km,  the  production  results  solely  from  cosmic-ray  ionization. 

Figure  6  shows  the  electron-ion  production  rates  at  noontime  by  the  external 

4. 

source  function.  Above  90  km,  the  09  ion  is  the  most  abundant  ion  produced.  At 

4*  w 

70  and  80  km,  the  production  of  NO  ions  by  La  predominates. 

5.2  The  Simplified  Sunrise-Sunset  Function 

Because  of  the  rapid  changes  in  the  concentrations  of  some  of  the  atmospheric 
constituents  during  sunrise  and  sunset,  more  realistic  results  are  obtained  with  the 
code  if  the  sun  is  considered  to  be  an  extended  source  rather  than  a  point  source. 

It  is  neccssary,  therefore,  to  consider  the  geometry  of  a  moving  disc  obscured  by 
a  plane.  Because  the  viewing  angle  of  the  earth  is  much  larger  than  the  viewing 
angle  of  the  sun  to  an  observer  in  the  ionosphere,  the  earth's  horizon  is  considered 
to  be  flat. 

In  order  to  handle  this  problem  correctly,  it  is  necessary  to  take  into  account 
the  absorption  of  the  specific  wavelengths  responsible  for  the  photodetachment  of 
each  negative  ion  and  the  photodissociation  of  each  neutral  species.  Unfortunately, 
the  spectral  dependence  of  these  processes  for  all  the  negative  ions  and  neutral 
constituents  is  not  known.  For  the  purposes  of  this  paper,  therefore,  the  full 
daylight  coefficients  for  photodetachment  and  photo  dissociation  are  simply  modified 
by  the  percentage  of  the  total  visible  light  transmitted  as  the  sun  rises  or  sets. 
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Table  2  (Continued) 


Altitude  (km) 

N(0)/CG 

N(02/CC 

- . -  ■  ■—  . 

N(N2/CC 

350 

2.39X108 

2.49X10° 

4.11X107 

360 

2. 04X1 08 

1.78X106 

3.08X107 

370 

1.78X108' 

1.39X106 

2. 46X1 07 

380 

1..52X108 

1.00X10° 

1.85X107 

390 

1.33X108 

7.82X105 

1.4  9X1 0V 

400 

1. 14X108 

5.65X105 

1.  13X107 

410 

1.00X108 

4.43X105 

9.04X10° 

420 

8. 59X1 07 

3.20X105 

6.83X10° 

430 

7.53X107 

2.52X105 

5.51X10° 

440 

6.49X107 

1. 83X1 05 

4.19X10° 

450 

5.70X107 

1.44X10° 

3. 38X10° 

460 

4.91X107 

1.05X105 

2.58X10° 

470 

4. 32X1 07 

8.  30X1 04 

2.09X10° 

480 

3.73X107 

6,06X1 04 

1.59X10° 

490 

3.28X107 

4. 74X1 04 

1.29X10° 

500 

2. 83X1 07 

3,  5 1X1 04 

9. 8 6X1 05 

510 

2.  50X1 07 

2.72X104 

8.  00X10° 

9  The  area  of  a  sector  of  the  circle  in  Figure  7  subtended  by  the  angle  0  is 
r  n 

~s— .  From  Figure  7 


(27) 


Since 


9 

cos  2u  =  2  cos”u  -  1: 


(28) 


then 


cos  0=2 


(29) 


or 


ALTITUDE- Km 


PHOTOIONIZATION  RATE  -  iltelront /cm*/ tic 


Figure  5.  Electron  Production  Hates  by  Extraterrestrial 
Radiations  ( Brazil  noontime) 


Figure  6.  Electron-Ion  Production  Rates  by  Extra¬ 
terrestrial  Radiation  { Brazil  noontime) 
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The  transmissivity  factor,  ?; ,  can  be  written  as 


V 


which  for  r  =  l  becomes 


(36) 


(37) 


or 


>1  - 

5.3  Diurnal  Variation  Hosults 

In  computing  the  diurnal  variation  some  changes  in  the  basic  list  of  reaction 

rates  are  necessary  in  order  to  obtain  solutions  that  are  generally  consistent  with 

available  experimental  evidence  An  attempt  was  made  to  achieve  the  NO  / 02 

daytime  ratios  observed  by  Narcisi  (1966).  There  is,  of  course,  no  unique  way  to 

obtain  these  ratios  in  the  present  system.  In  the  E  region  they  can  be  achieved  by 

varying  the  rate  constant  for  the  cnarged  rearrangemant  reaction  02  +  N — *-NO  +  O. 

They  can  also  be  arrived  at  by  using  a  different  concentration  of  atomic  nitrogen  for 

this  reaction.  This  ratio  is  also  sensitive  to  the  ratio  of  the  rate  constants  for 
+  + 

NO  and  02  dissociative  recombination.  Because  of  the  recent.measurements 
by  Furguson  et  al.  (1965)  of  the  rate  constant  for'the  charged  rearrangement  re¬ 
action  and  because  of  the  lack  of  experimental  measurements  of  the  concentration 
of  atomic  nitrogen,  the  first  two  choices  were  rejected.  In-order  to  establish 
ratios  consistent  with  those  of  Narcisi  (1966),  the  rate  constant  for  NO+  dis- 

JL. 

sociative  recombination  is  made  equal  to  that  for  02  dissociative  recombination. 

In  addition  to  the  other  rate  constant  adjustments  discussed  in  Section  4,  the 
rate  constants  for  four  more  reactions-are  changed  for  the  diurnal  variation  runs. 

The  associative  detachment  reaction  Oj  +  O  — *-200  +  e  is  an  important  reaction 
in  the  electron  kinetics  in  the  D  region.  Allowing  this  detachment  to  take  place 
produces  profiles  at  night  that  are  contrary  to  experimental  observations.  An 
example  of  this  behavior  is  presented  in  Section  6.  The  rate  constant  for  this 
reaction  and  the  similar  reaction  for  N02  +  O  — »-02  +  NO  +  e  were  therefore 
set  to  zero.  Problems  then  arose  in  trying  to  obtain  a  negative  ion-to-electron 
ratio  of  unity  at  70  km.  To  accomplish  this  the  rate  coefficient  for  Og  photo- 

detachment  is  changed  to  1.4  and  the  rate  constant  for  the  charge  transfer  reaction 

_  _q 

00  +  Og — »-Og  +  02  is  changed  to  7. 77X10  .  With  these  rate  constant  changes, 

reasonable  negative  ion-to-electron  ratios  are  obtained  at  noontime  in  the  D  region. 


°2  - 


cos  0 


1/2 


(38) 
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Because  the  energy  available  in  the  Herzberg  continum  was  not  considered  in 
this  work  and  because  all  of  the  energy  in  the  Schumann  continum  is  absorbed  a'^ove 
100  km,  no  photodissociation  of  O 2  is  allowed  below  110  km.  The  incorporation 
Og  photodissociation  into  the  code  is  discussed  in  Section  7.2. 1.  1.  When  viewing 
the  atomic  oxygen  profiles,  this  fact  should  be  kept  in  mind. 

Before  discussing  the  actual  diurnal  variations  of  the  various  atmospheric 
species  in  the  D  and  E  ionospheric  regions,  it  might  be  worthwhile  to  study  the 
kinetics  of  the  reactions  responsible  for  the  noontime  profiles  of  the  more  important 
ionic  and  neutral  constituents. 

'.3.1  THE  NOONTIME  KINETICS 

The  diurnal  variations  were  computed  in  height  intervals  of  10  km  and  at 
noontime  a  snapshot  was  taken  of  the  rates  at  which  the  individual  reactions  were 
proceeding.  From  this  output  the  reactions  contributing  predominantly  to  the 
kinetics  cf  each  species  were  extracted.  The  height  profiles  of  the  rates  at  which 
these  reactions  were  proceeding  are  shown  in  Figures  8  through  1G  for  the  major 
speci es. 

The  electron  kinetics  are  shown  in  Figure  8.  Above  90  km,  the  electron  con¬ 
centration  results  from  the  equilibrium  established  betweer  the  electrons  produced 
by  the  external  source  and  those  lost  by  dissociative  recombination  with  Ch,  and 
NO+  .  Below  80  km,  the  picture  is  entirely  different.  Here  the  electron  concen¬ 
tration  is  determined  by  the  equilibrium  established  between  the  production  of 
electrons  by  photodetac.iment  from  negative  ions  and  the  three-body  attachment  of 
the  electrons  to  09  .  The  altitudes  between  80  and  90  km  are  transition  altitudes 
where  the  electron  concentration  results  equally  from  the  external  source  and  the 
photodetachment  productions  and  the  dissociative  recombination  and  three-body 
attachment  removals. 

Figure  9  shows  the  kinetics  of  O  .  Above  90  km.  this  ion  is  produced  solely 
by  the  radiative  attachment  of  electrons  to  atomic  oxygen.  Above  110  km  the  only 
removal  process  for  these  ions  is  the  photodetachment,  while  below  100  km  the 
associative  detachment  O  +  Ng — »-N20  +  e  becomes  the  only  removal  mechanism. 
There  is  some  controversy  as  to  whether  this  reaction  is  endothermic  or  exothermic. 
Bortner  (1965)  discussed  this  problem-and  accepted  the  thermochemical  data  that 
makes  this  process  exothermic.  B^low  90-km  the  O  ions  are  produced  by  the 
charge  transfer  between  O.j  and  atomic  oxygen  and  by  the  dissociative  attachment 
reaction  Og  +  e — *-0  +  09  . 

From  Figure  10  it  is  obvious  that  the  formation  of  09  ions  over  the  entire 
altitude  range  is  by  the  three-body  attachment  of  electrons  to  02  .  Above  80  km 
they  are  removed  by  photodetachment  and  by  the  charge  transfer  between  07,  ana 
atomic  oxygen.  Below  80  km  the  predominant  removal  process  becomes  the  cr.  rge 
transfer  between  0»  and  ozone. 
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Figure  8.  Important  Processes  for  Electrons  (Brazil  noontime) 


Figure  9.  Important  Processes  for  O’  (Brazil  noontime) 
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Figure  10.  Important  Processes  for  (Brazil  noontime) 


Figure  11.  Important  Processes  for  Og  (Brazil  noontime) 
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Figure  12.  Important  Processes  for  NO  (Brazil  noontime) 


Figure  13.  Important  Processes  for  Nitric  Oxide  (Brazil  noontime) 
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Figure  14.  Important  Processes  for  Atomic  Nitrogen  (Brazil  noontime) 


Figure  15,  Important  Processes  for  Ozone  (Brazil  noontime) 
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Figure  16.  Important  Processes  for  Atomic  Oxygen  (Brazil  noontime) 

The  kinetics  of  the  Og  ions  are  shown  in  Figure  11.  Above  80  km  these  ions 
are  removed  almost  entirely  by  dissociative  recombination.  In  the  E  region  they 
are  formed  primarily  by  photoionization.  Below  90  km  the  charge  transfer  process 
N*  +  Og— *-  Og  +  N2  and  the  external  source  contribute  about  equally  to  the  production 
of  this  ion.  Below  80  km  ot  becomes  a  minor  ion  since  it  is  produced  by  cosmic- 
ray  ionization  and  from  Ng  by  charge  transfer  while  the  latter  ions  are  being 
formed  in  small  numbers  by  cosmic- ray  ionization.  The  Og  ions  react  to  form 
NO+  ions  below  80  km  by  charged  rearrangement  with:  Ng  and  charge  transfer 
with  NO  . 

Figure  12  shows  the  processes  responsible  for  the  noontime  kinetics  of  NO+  . 

The  only  removal  process  that  is  important  at  all  altitudes  is  the  dissociative  re- 
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combination.  Above  85  km  NO  is  formed  primarily  from  Og  and  Ng  by  charged 
rearrangement  with  atomic  oxygen  and  atomic  nitrogen  respectively.  Of  lesser  im¬ 
portance  are  the  Q0  charged  rearrangement  with  N„  ,  the  charge  transfer  between 
Og  and  NO  and  the  charged  rearrangement  between  O  and  Ng  .  Between  70 
and  80  km  this  ion  is  formed  almost  exclusively  by  the  ionization  of  NO  by  La  . 

The  kinetics  of  nitric  oxide  are  shown  in  Figure  13.  The  neutral  rearrangement 
reaction  N+  NO— ►Ng  +  O  is  an  important  removal  process  for  this  molecule  at 
all  altitudes.  The  two-body  atom  recombination  N  +  O -*-NO  +  hr  is  important 
in  forming  this  molecule  above  80  km.  Below  this  altitude  it  becomes  unimportant 


because  of  the  relatively  small  amounts  of  atomic  nitrogen  available.  The  abundance 
of  09  ions  in  the  E  region  makes  the  charge  transfer  to  NO  also  important  above 
00  km.  Below  80  km  these  molecules  are  formed  by  the  neutral  rearragnement 
process  O  +  NO., — —NO  +  O.,  and  by  the  photcdissociation  of  NgO  .  They  are  re¬ 
moved  by  the  three-body  atom  recombination  O  +  NO  -*  M — —NO,,  +  M  and  by  the 
atom  recombination  O  +  NO— N09  +  hr  .  The  minimum  in  the  rate  of  the  process 
N  +  09— *“NO  +  O  between  80  and  90  km  is  produced  by  the  temperature  dependence 
of  the  rate  constant  for  this  process  which  is  a  minimum  in  this  region. 

The  kinetics  of  atomic  nitrogen,  as  shown  in  Figure  14,  are  influenced  mainly  by 
charged  species  reactions  above  90  km  and  by  neutral  reactions  below  this  altitude. 

In  the  E  layer  it  is  produced  primarily  by  the  dissociative  recombination  of  NO 
and  by  the  charged  rearrangement  between  N9  and  atomic  oxygen.  Its  major  re¬ 
moval  process  is  the  charged  rearrangement  with  Og  •  Also  contributing  to  its 
removal  are  its  neutral  rearrangement  with  NO  and  its  recombination  with  atomic 
oxygen.  In  the  D  region  this  atom  is  formed  by  the  photodissociation  of  NgO  and 
of  NO  .  It  is  removed  by  the  neturai  rearrangement  reactions  N  +  NO— *-Ng  +  O 
and  N  +  09 — —  NO  +  O  . 

Figure  15  shows  the  kinetics  for  ozone  at  noontime.  The  primary  removal 
mechanism  for  this  molecule  is  p'.iotodissociation.  Also  contributing  to  its  removal 
isthe  neutral  rearrangement  reaction  O  +  Og- — *-20g  .  The  major  formation  of  ozone 
is  by  the  three-body  recombination  O  +  Og  +  M— — Og  +  M  .  Of  minor  importance 
in  forming  ozone  is  the  two-body  atom  recombination  0  +  09  — Og+hr.  The 
rates  for  the  three-body  recombination  processes  fall  off  rapidly  with  increasing 
altitude  because  of  the  decreasing  molecular'concentrations. 

The  important  reactions  for  atomic  oxygfen  are  shown  in  Figure  16.  In  the  D 
region  the  atomic  oxygen  kinetics  are  controlled  by  the  same  reactions  as  the  ozone 
concentration.  In  the  E  region  the  photodissociatioii  of  molecular  oxygen  is  the  major 
source  of  oxygen  atoms.  There  is  no  effective  chemical  removal  of  these  atoms 
during  the  daytime  in  the  E  region. 

5.  3.  2  THE  DIURNAL,  VARIATIONS 

The  code,  as  discussed  in  Section  6. 2,  was  used  to  compute  the  time  histories 
of  the  15  atmospheric  species  incorporated  into  the  code.  Many  concentration  pro¬ 
files  were  computed  for  various  geographic  locations.  From  these  computations 
those  made  for  the  coordinates  32.  197° S  and  52.  169°  W  were  chosen  for  presentation 
here.  This  location  is  in  Brazil  where  sounding  rockets  were  launched  during  the 
eclipse  of  12  No\  ,-nber  1966. 

The  diurnal  variation  profiles  are  generated  in  the  following  manner.  The  code 
Is  started  at  local  noon  with  the  concentrations  of  the  charged  species  initially  set 
to  zero  and  the  concentrations  of  the  neutral  species  initially  set  to  best  estimate  values. 


The  code  is  then  run  through  one  diurnal  cycle  (24  hours).  Taking  the  concentra¬ 
tions  of  all  <he  species  at  the  end  of  this  diurnal  cycle  as  initial  conditions,  a  solu¬ 
tion  is  generated  over  a  second  diurnal  cycle.  The  profiles  computed  over  this 
second  diurnal  cycle  are  presented  here. 

Technically,  this  procedure  should  be  repeated  over  as  many  diurnal  cycles  as 
are  required  to  achieve  equilibrium  profiles.  Equilibrium,  as  defined  here,  is 
achieved  when  the  variation  in  the  concentration  of  each  species  reproduces  itself 
over  succeeding  diurnal  cycles.  In  the  profiles  presented,  it  is  apparent  that  for 
some  of  the  species  this  equilibrium  was  not  achieved  in  the  second  cycle  and 
more  diurnal  cycles  should  have  been  computed.  Nevertheless,  this  does  not  diminish 
the  validity  of  the  results  as  they  are  discussed. 

Figure  17  shows  the  diurnal  variation  of  the  major  charged  species  at  120  km. 
Although  the  variation  of  all  nine  charged  species  in  the  code  were  computed,  only 
those  species  that  attain  concentrations  above  10  particles/cm'*  are  plotted.  The 
noontime  value  of  the  electron  concentration  results  from  the  equilibrium  established 
between  the  production  by  photoionizatior.  and  the  dissociative  recombination  of 
02  and  NO  .  As  the  solar  zenith  angle- increases,  the  rate  of  production  de¬ 
creases  because  of  the  greater  attenuation  of  the  solar  radiations  through  the  denser 
columns  m  the  atmosphere.  The  production  rate  is  reduced  to  its  nighttime  value 
about  a  half  hour  before  the  sun  starts  to  set.  As  fewer  electron  are  produced, 
those  already  made  are  removed  by  recombination,  causing  the  concentrations  of 
the  electrons  and  tL--  positive  ions  to  decrease.  This  decay  continues  until  the 

production  rate  is  reduced  to  its  constant  nighttime  value  at  which  time  a  new 
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equilibrium  is  established  for  the  electrons  and  the  NO  ions.  The  09  concentration 

+  +  ^  + 
decays  below  the  NO  concentration  because  of  the  ^conversion  of  O0  ions  into  NO 

+  -  .  -4-  ^  + 

ions  by  the  charged  rearrangement  reaction  Og  +  N— *-NO  +  O  .  The  02  concen¬ 
tration  increases  during  the  night  because  the  rate  of  removal  by  the  charged  re- 

4*  4- 

arrangement  reaction  02  +  N— *-NO  +  O  decreases  with  the  decreasing  atomic 
nitrogen  concentration.  After  the  sun  rises  and  the  ionizing  radiation  starts  to 
penetrate  to  this  altitude,  the  production  of  ionization  increases,  causing  the  con¬ 
centration  to  increase  until  the  production  rate  levels  off  around  noontime  and  the 
daytime  equilibrium  is  established  between  the  production  of  ionization  and  the 
dissociative  recombination. 

Figure  18  shows  the  diurnal  profiles  for  the  neutral  species  at  120  km. 

Atomic  oxygen  was  not  plotted  here  because  its  concentration  varies  only  slightly 
113 

around  2X10  atoms/cm  .  During  the  daytime  the  concentration  of  atomic 
nitrogen  builds  up  as  it  is  formed  by  the  dissociative  recombination  NO  +  e — »-N  +  O 

-j»  4" 

and  by  the  charged  rearrangement  N0  +  O — »-NC  +  N  at  a  faster  rate  than  it  is 

^  +  4* 

removed  by  the  charged  rearrangement  Og  +  N  — *~NO  +  O  or  the  neutral  rear¬ 
rangement  N  +  NO— ^Ng  O  .  During  the  night,  however,  the  formation  by  the 
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Diurnal  Variation  of  Charged  Species  at  120  km  (Brazil  noontime) 
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Figure  18.  Diurnal  Variation  of  Neutral  Species  at  120  km  (Brazil  noontime) 
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dissociative  recombination  and  the  charged  rearrangement  practically  stops.  The 
only  process  really  affecting  this  atom  then  is  the  neutral  rearrangement  which 
causes  its  concentration  to  decay  steadily  throughout  the  night.  No  change  is  pos¬ 
sible  in  the  N„0  concentration  because  the  time  constant  for  its  removal  by  photo- 
“  5 

dissociation  is  about  10  secs  which  is  longer  than  one  day.  There  is  no  effective 
formation  or  removal  process  for  this  molecule  at  night.  The  slight  diurnal  varia- 

-f 

tion  in  nitric  oxide  is  caused  by  the  diurnal  variation  of  09  in  the  process 
O.,  +  N9 — “-NO  +  NO  •  Ozone  is  only  a  trace  species  a  120  km.  The  slight  varia¬ 
tion  in  its  concentration  is  caused  by  the  variation  of  its  rate  of  photodissociation 
with  the  solar  zenith  angle.  When  the  photodissociation  stops  at  sunset  its  concen¬ 
tration  increases  by  the  twer-body  recombination  reaction  O  +  O., — »-Og  +  hr  until 
a  new  equilibrium  is  established  between  this  recombination  and  the  netural  re¬ 
arrangement  reaction  O  +  Og— »~02  +  02  . 

Figure  19  shows  the  diurnal  variation  of  the  major  charged  species  at  110  km. 

The  behavior  of  the  charged  species  at  this  altitude  is  similar  to  that  at  120  km. 

The  noontime  equilibrium  value  of  the  electrons  is  slightly  lower  here  than  at  120  km 
because  of  the  slightly  larger  recombination  rate  constants.  Since  these  rate  con¬ 
stants  are  inversely  proportional  to  the  temperature,  their  values  are  higher  at 
110  km  than  at  120  km  because  of  the  decreased  temperature.  The  nighttime  con¬ 
centrations  are  a  little  higher  than  they  are  at  120  km  because  the  nighttime  pro¬ 
duction  function  is  larger  at  this  altitude. 

The  only  real  difference  in  the  neutral  species-profiles  at  llOckm,  as  shown  in 
Figure  20,  from  those  at  120  km  is  the  ozone  profile.  Since  the  rate  of  the  three- 
body  recombination  process  O -+  02  +  M — »-Og  +M  is  increasing  with  decreasing 
altitude,  more  ozone  molecules  are  formed  at  this  altitude  at  night  when  their 
photodissociation  has  stopped. 

The  charged  soecies  diurnal  variations  at  100  km,  as  shown  in  Figure  21,  dis¬ 
play  much  of  the  same  behavior  that  is  seen  at  the  two  higher  altitudes.  The  slightly 
lower  concentrations  reflect  the  slightly  lower  photoionization  rate.  At  night,  however, 
at  this  altitude  Og  starts  to  become  an  important  negative  ion.  Because  of  the  in¬ 
crease  in  the  concentration  of  ozone  during  the  night,  the  rate  of  the  dissociative 
attachment  reaction  Og  +  e  — *~0  +  Og  increases.  However,  the  charge  transfer 
reaction  O  +  Og — »~03  +  O  proceeds  so  rapidly  because  of  the  increased  Og 
concentration  that  the  O  ions  created  by  attachment  immediately  transfer  their 
charge  to  Og  ,  causing  the  electrons  to  decay  slightly  as  their  charge  goes  into 
the  formation  of  Og  ions.  As  soon  as  the  sun  starts  to  rise,  however,  the  elec¬ 
trons  are  very  quickly  detached  from  the  Og  ions,  causing  the  concentration  of  this 
ion  to  decay  rapidly  with  a  corresponding  increase  in  the  electron  concentration. 

Figure  22  shows  the  diurnal  variation  of  the  minor  neutral  species  at  100  km. 

Their  behavior  is  again  similar  to  that  at  the  higher  altitudes.  There  is,  however. 
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Figure  20.  Diurnal  Variation  of  Neutral  Species  at  110  km  (  Brazil  noontime) 
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Figure  22,  Diurnal  Variation  of  Neutral  Species  at  100  km  (  Brazil  noontime) 
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a  greater  diurnal  variation  in  ozone.  Below  IOC  km  the  major  source  of  ozone 
is  the  three-body  recombination  reaction  O  +  09  +  M  -*-Og  +  M  ,  When  photo¬ 
dissociation  stops  at  sunset  the  ozone  concentration  increases  because  of  this  re¬ 
combination.  The  time  constant  for  removal  of  ozone  by  the  neutral  rearrangement 
reaction  O  +  Og — *-20g  is  about  one  hour.  After  this  time,  therefore,  theozone 
goes  into  equilibrium  which  is  established  by  these  two  processes. 

At  90  km  the  diurnal  variation  of  the  charged  species  starts  to  st.ow  a  oenavior 
different  from  that  at  higher  altitudes  (see  Figure  23).  The  production  function  no 
longer  shows  the  smooth  decay  representative  of  the  absorption  of  ultraviolet  radia¬ 
tion.  Around  90  km  during  the  day,  the  primary  source  of  ionization  is  the  soft 
X-rays  with  the  <jV  radiation  almost  completely  absorbed  above  this  altitude. 

As  the  solar  zenith  angle  increases,  more  and  more  of  these  X-rays  are  absorbed 
because  of  the  increasing  air  mass  in  the  column.  The  La  radiation,  however, 
suffers  less  absorption  in  the  column  as  the  solar  zenith  angle  increases.  A  point 
is  reached,  therefore,  where  the  incident  X-ray  flux  becomes  less  than  the  incident 
La  flux.  This  change  over.to  La  production  is  evidenced  by  the  bumps  in  the  pro¬ 
duction  curve  in  Figure  18  around  1800  and  0G00  hours.  At  this  altitude  during  the 
day  O.,  is  still  the  major  positive  ion  and  the  electrons  are  stilLlost  by  recom¬ 
bination.  During  the  night,  however,  the  rate  of  electron  removal  by  recombina¬ 
tion  becomes  relatively' small  because  of  the  low  electron  density.  The  process  that 
starts  to  become  important  at  this  altitude  is  thi  three-body  attachment 
O0  +  e  +  Og—-*-  Og  +  09  ...  During  the  night,  therefore;  the  electrons  are  lost  by 
attachment  to  02  .  The  09  ions '-thus  formed  do  not  stay  around  very  long  be¬ 
cause  the  rate  of  Uie  charge  transfer  reaction  \09  +  Cg—*~Og  +  09  is  increasing 
rapidly  wi*h  the  increasing  ozone  concentration.  As  soon  as  the  02  ions  are  formed 
they  immediately  transfer  their  charge  to  ozone  forming  Og  ions.  The  Og  ions 
increase  until  an  equilibrium  is  established  between  the  charge  transfer  and  the 
mutual  neutralization  reaction  Og  +  NO  — *>-  Og  +  NO  .  As  soon  as  the  sun  starts 
to  rise,  the  electrons  are  detached  from  the  Og  ions  and  in  a  few  seconds  all  of 
the  electrons  that  were  attached  during  the  night  are  detached.  Because  the  solar 
t  adiation  must  penetrate  very  dense  air  columns  just  after  sunrise,  the  production 
function  does  not  become  effective  in  producing  ionization  for  about  an  hour  after 
the  sun  has  come  up..  During  this  period  of  time,  with  no  source  of  ionization 
present,  the  electrons  recombine  with  the  positive  ions,  causing  the  ionization 
to  start  to  decay.  When  the  production  function  becomes  effective  in  producing 
ionization,  the  electron  and  positive  ion  concentrations  start  to  increase  and  pro¬ 
ceed  to  their  noontime  equilibrium  values. 

The  diurnal  variation  of  the  minor  neutral  species  at  90  km  is  shown  in 
Figure  24,  The  behavior  at  this  altitude  is  similar  to  that  at  100  km.  The  ozone 
concentration  displays^  greater  diurnal  variation  at  this  altitude  because  of  the 
increase  in  the  rate  of  the  three-body  recombination. 
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Tin  diurnal  variation  of  the  major  charged  species  at  80  km  is  shown  in  Figure  25. 
The  -daytime  ionization  picture  is  now  changing  considerably.  The  major  positive  ion 
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during  the  entire  day  is  NO  .  The  09  concentration  is  about  two  orders  of  mag- 
+  “ 

nitude  below  the  NO  concentration.  The  electrons  and  positive  Ions  decay  during 

the  afternoon  by  recombination.  The  02  density  follows  the  electron. concentration 

because  oi-  quasi-equilibrium  established  between  the  three-body  attachment  and  the 

photodetachment.  The  C>3  concentration  follows  the  other  negative  ions  because  of 

the  equilibrium  between  the  charge  transfer  02  +  Og-*-  O3  +  02  anci  tlie  P'toto" 

detachment.  As  soon  as  the  s«n  starts  to  set,  the  electrons  become  attached  to 

02  .  This  attachment  continues  until  the  rate  of  removal  is  balanced  by  the  rate  of 

formation  by  the  source  function.  At  this  altitude  also  the  09  ions  formed  by 

electron  attachment  are  shortlived,  transferring  their  charge  to  ozone  to  form  the 
-  + 

09  ions.  When  the  dissociative  recombination  of  NO  stops  at  sunset  because  of 

the  decreased  electron  density,  the  NO*  concentration  increases  by  the  nighttime 
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production  function  until  a  quasi-equilibrium  is  established  between  03  and  NO 
as  determined  by  the  nighttime  source  and  the  time  constant  of  the  mutual  neutrali¬ 
zation  process  03  +  NO+ — *“  Og  +  NO  .  The  electron  concentration  decays  slowly 
throughout  the  night  because  of  attachment  to  O0  .  The  resulting  09  ions  thus 
formed  immediately  transfer  their  charge  to  ozone  to  form  03  ions.  The  behavior 
of  the  ionization  after  sunrise  is  the  same  as  at  90  km  except  that  three-body 
attachment  and  negative  charge  transfer  start  to  bring  negative  ions  into  the  picture. 
Figure  26  shows  the  diurnal  variation  of  the  minor  neutr  al-species  at  80  km 
where  again  there  is  the  large  diurnal  variation  in  ozone.  Atomic  oxygen  is  now 
starting  to  show  a  diurnal  variation  also.  The  atomic-nitrogen  behavior  is  quite 
different  from  what  it  was  at  higher  altitudes.  Below  80  km  its  kinetics  are  deter¬ 
mined  solely  by  neutral  reactions.  l.I.en  the  sun  sets  the  photodissociation  of 
NgO  slops  thus  halting  the  production  of  N  atoms.  With  no  other  source  of  pro- 
ductioh-ipresent  for  these  atoms,  they  decay  during  the  night  by  the  netural  rear¬ 
rangement  process  N  +  NO— *-N2  *  O  .  After  sunrise  the  concentration  of  this 
atom  increases  until  an  equilibrium  is  established  between  the  photodissociation 
of  NgO  and  the  neutral  rearrangement. 

The  diurnal  variation  of  the  charged  species  at  70  km  is  shown  in  Figure  27. 

The  behavior  of  the  species  at  this  altitude  is  controlled  by  the  same  process  as  at 
30  km.  With  the  values  of  the  rate  constants  for  the  photodetachment  from  Ol(l.  4) 
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and  for  the  charge  transfer  reaction  02  +  03 — »-03  +  Og  i7.  77  X  10  )  used  in  this 

work  a  negative  ion-to-electron  ratio  of  about  unity  is  obtained  at  70  km.  The  nega¬ 
tive  ion  concentrations  are  higher  here  than  they  are  at  80  km  becausc'of  the  higher 
rate  of  the  three-body  attachment  reaction  which,  in  turn,  results  from  the  higher 
neutral  concentration  at  70  km. 

Figure  28  shows  the  diurnal  variation  of  the  minor  neutral  species  at  70  Vnv. 

At  this  altitude,  atomic  nitrogen  becomes  a  trace  species  and  is  therefore  not  plotted. 


Figure  26.  Diurnal  Variation  of  Neutral  Species  at  80  km  (Brazil  noontime) 


»>b  ST" 


1  o 

-  I 


10'  1 _ I  I  l  I  l _ I°*rr'i  .  ■/  i  i  II  i  rT°i)  j _ i _ i _ i _ j _ !  jo-' 

1200  1400  1600  1000  2000  2100  0000  0200  C4(V»  0600  0600  1000  1200 

LOCAL  TIME -'ro** 

Figure  27.  Diurnal  Variation  of  Charged  Species  at  70  km  (  Brazil  noontime) 
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Figure  28.  Diurnal  Variation  of  Neutral  Species  at  70  km  (Brazil  noontime) 


The  st'r  'king  feature  of  Figure  28  is  the  cons i  tenable  diurnal  changehthat  take* 
place  in  the  atomic  oxygen  concentration.  The  molecular  oxygen  and  total  con¬ 
centration  have  become  sufficiently  high  to  make  the  three-body  recombination 
process  O,  +  O  +  M— *-Og  +  M  proceed  very  rapidly.  During  the, night  when 
there  is  no  photodissociation  of  ozone  to  replenish  the  atomic  oxygen  supply,  the 
three-body  recombination  converts  practically  all  of  the  available  oxygen  atoms  to 
ozone.  When  the  sun  comes  up,  however,  the  photodissociation  of  ozone  is  so 
rapid  that  the  oxygen  atoms  that  recombined  during:the  night;  ire  restored:  in  a  few' 
minutes.  The  nitric  oxide  concentration  also  exhibits  a  substantial  diurnal  change 
at  70  km.  The  neutral  rearrangement -reaction  O  +  N09  - *~NO  +  Og  ,  the  major 
formation  process  for  this  molecule  d  ,.ing  the  day,  decreases  in.  effectiveness  as 
the  atomic  oxygen  disappears  during  the  night.  Since  there  is  no  other  effective 
formation  process  for  this  molecule,  its  concentration  decreases  through  the 
neutral  rearrangement  .reaction  N  +  NO  --*-N9  +  O 

The  nitric  oxide  concentration  returns  quickly  to  its  daytime  level  when  the 
sun  rises  and  the  atomic  oxygen  is  restored.  Nitrogen  dioxide  is  an  extremely 
minor  species  down  to  70  km.  At  this  altitude  it* exhibits  a  sufficient  diurnal  varia¬ 
tion  so  that  by  the  end  of  the  night  it  is  almost. equal  in  concentration  to  the  nitric 
oxide.  The  concentration  of  this  molecule  is  controlled  by  its  photodissociation 
and  the  three-body  recombination  reaction  O  +  NO  +  M — *"N02  +  M  .  During  the 
night  v'hen  there  is  no  photodissociation,  the  concentration  of  this  molecule  in¬ 
creases  by  the  three  body,  atom  recombination.  When  the  sun  comes  up,  the 
nitrogen  dioxide  is  dissociated  very  rapidly. 

The  diurnal  variation  of  the  major  charged  species  at  GO  km  is  shown  in 
Figure  29.  Because  thereis, no. change  in  the  production  function  throughout  the 
day  and  because  the  time  constant  for  recombination  is  long,  there  is  little  change 
in  the  electron  and  concentrate  during  the  afternoon.  The  diurnal  variation 
solution  at  GO  km  anould  have  been  run  over  another  diurnal  cycle.  It  is  apparent 
that  the  crcentrav’ons  at  the  beginning  and  at  the  end  of  the  solution  shown  L. 

Figure  29  do  mot  coincide  sufficiently  well.  Nevertheless,  Og  is  the  most  abundant 
negative  species  throughout  the  entire  day.  During  the  night  the  NOg  ion,  which 
was  a  trace  ion  at  all  altitudes  above  GO  km,  becomes  the  second  most  abundant 
negative  species.  This  ion  follows  the  nitrogen  dioxide  profile  shownTn  Figure  30 
since  it  is  formed  by  the  charge  transfer  Og  +  NOg— *-  NOg  +  Og  ,  When  the  sun 
comes  up  and  the  concentration  of  NOg  decreases  again,  the  NOj  ions  transfer 
their  charge  back. to  ozone,  NOj  +  Og— *“Og  +  NOg  . 

Figure  30  shows  the  diurnal  variation  of  the  minor  neutral  species  at  CO  km. 

The  ozone  still  undergoes  a  diurnal  variation  but  the  magnitude  of  the  variation  is 
less  at  GO  km  because  there  is  less  atomic  oxygen  available  to  produce  it.  Within 
about  an  hour  after  unset  practically  all  of  the  atomic  oxygen  has  recombined. 
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The  nitrogen  dioxide  concentration  again  exhibits  a  large  diurnal  variation  arriving 
at  a  concentration  almost  equal  to  that  of  nitric  oxide  at  sunrise.  The  nitric  oxide 
undergoes  a  lesser  variation  at  60  km  than  it  did  at  70  km  because  the  formation 
of  this  molecule  stops  when  the  atomic  oxygen  becomes  depleted.  Its  removal  by 
the  neutral  rearrangement  reaction  N  +  NO — «-N2  +  O  is  then  much  slower  because 
of  the  greatly  reduced  atomic  nitrogen  concentration. 

5. ,3.  3  VERTICAL  PROFILES  OF  THE  SPECIES 

In  order  to  obtain  a  composite  picture  of  the  curves  discussed  in  Section  5.  3;  2, 
the  concentrations  of  the  species  were  plotted  as  a  function  of  altitude  for  noontime 
and  midnight.  Figure  31  shows  the  vertical  profile  of  the  charged  species  at  noon¬ 
time.  The  electrons  remain  the  most  abundant  negative  species  down  to  70  km. 

Below  this  altitude  0„  becomes  the  most  abundant  negative  species.  Above  90  km 

+  ^  +  *f 

09  is  the  most  abundant  positive  ion.  Between  80  and  9P  km  NO  replaces  O., 

as  the  most  abundant  positive  ion  and  remains  so  at  all  altitudes  below  80  km. 

.1.  .1.  _  _ 

Nowhere  are  O  ,  N2  ,  O  ,  and  C>2  important  ions.  In  the  lower  D  region  Og 
becomes  important. 

The  vertical  distribution  of  the  neutral  species  at  noontime  is  shown  in  Figure  32. 
The  NO  profile  remains  fairly  constant  down  to  90  km  while  below  this  altitude  it 
increases  steadily  with  decreasing  altitude.  The  ozone  profile  appears  to  have  a 
maximum  around  70  km.  Above  this  altitude  it  falls  off  rapidly  to  a  /ery  minor 
constituent.  The  NgO  concentration  increases  with  decreasing -altitude  through¬ 
out  the  entire  range.  Ato  ,.ic  nitrogen  appears  to.have  a  peak  in  the  E  region 
around  110  km  and  becomes  a  very  minor  species  in  the  D  region.  The  atomic 
oxygen  profile  is  that  obtained  by  the  chemistry  after  the  second  diurnal  variation 
cycle.  In  this  time  atomic  oxygen  has  not  gone  into  chemical  equilbrium  in  the 
E  region.  Several  more  diurnal  cycles  would  have  had  to  be  made  to  obtain  this 
equilibrium.  The  dashed  curve  is  the  initial  profile  assumed  for  atomic  oxygen. 

Figure  33  shows  the  vertical  profile  of  the  charged  species  at  midnight.  The 
distribution  is  considerably  different  from  that  shown  in  Figure  31  for  noontime. 

The  electrons  remain  the  most  abundant  negative  species  in  the  E  region.  Below 

_  X 

95  km,  however,  Og  is  the  most  abundant  negative  species.  At  all  altitudes  NO 
is  the  predominent  positive  ion.  No  other  ion  is  important  except  for  02  in  the 
E  region  and  NOg  at  60. km. 

The  height  profiles  for  the  neutral  species  at  midnight  are  shown  in  Figure  34. 
There  is  little  change  in  the  profile  of  atomic  oxygen  down  to  80  km  but  below  this 
altitude  it  suffers  a  severe  diurnal  variation.  The  ozone  profile  has  shifted  to 
higher  concentrations  by  a  little  more  than  an  order  of  magnitude.  This  reflects 
the  increased  production  of  this  molecule  during  the  night  by  the  three -body>atom 
recombination  reaction.  Atomic  nitrogen  varies  little  above  90  km  but  below  this 
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altitude  it  undergoes  considerable  diurnal  change;  The  nitric  oxide  and  the  nitrogen 
peroxide  profiles  show  very  little  change  from  noontime  to  midnight.  The  nitrogen 
dioxide  concentration,  is  much  higher  at  midnight  than  at  noontime  below  80  km,  again 
showing  diurnal  variation. 


6.  DISCUSSION  OF  TDK  CODE 


6.1  Example  of  How  ExpcriniunU'l  Evidence  is  Used  to  Adjust  Hole  Constants 

It  would  be  interesting'at  this  point  to  present  one  example  of  a  solution  using 
rate  constants  for  s<  me  reactions  different  from  those  already  discussed.  This 
will  demonstrate  how  the  code  can.be  used  to  detect  discrepancies  in  the  values  of 
rate  constants  or  difficiencies  in  the  chemistry.  Figure  35  shows  a  diurnal  varia¬ 
tion  solution  at  70  km  using  the  same  code  that  produced  Figure  27.  The  only  dif¬ 
ferences  between  the  two  runs  are  the  values  of  two  rate  constants  and  the  inclusion 
of  two  additional  reactions.  The  two  reactions  whose  rate  constants  are  changed 
are 


Oj  +  h-<  +  e  k^  =  0. 04 

°2  +  03-~°3  +  02  k&6  =  1X10'9 

These  are  the  rate  constants  listed  in  the  basic  list  in  Section  3  as  compared  to 
-9 

1.4  and  7.77X10  respectively,  used  for  the  diurnal  variation  calculations. 

The  two  additional  reactions  are 

Og  +  O— T "-Og  +  e  +  Og 

NOj  +  O— ~ Og  +  NO  +  e 

The  two  rate  constant  changes  have  the  effect  of  slowing  dov/n  both  of  the  re¬ 
actions.  'he  rate  constants  for  these,  four  reactions- are  the  same  as  those  used 
to  compute  the  deionization  profiles  in  Section  4. 

Since  fewer  Og  ions  are  losing  their  charge  to  ozone,  the  second  largest 
negative  species  in  Figure  35  is  Og  whereas  in  Figure  27  it  is  Og  .  Otherwise 
the  behavior  of  theLcharged  species  during  the  day  is  much  the  same  in  both 
Figures  27  and  35.  During  the  night,  however,  tne  behavior  is  quite  different. 
The  rapid  decay  of  the  electrons  by  attachment  to  Og  and  of  the  Og  ions  by 
charge  transfer  to  ozone  as  seen  in  Figure  27  does  not  take  place  in  Figure  35, 
althcuglrthe  electrons  still  attach  to  Og  to  form  Og  .  In  this  computation  the 


k167  =  5X10 
k168  =  1X10 


/ 


63 


Figure  35.  Diurnal  Variation  of  Charged  Species  at  70  km  Using  Different 

Reaction  Rates 

associative  detachment  reaction  Oj  +  O— »-202  +  e  is  the  fastest  process  in  the 
kinetics,  so  that  the  electrons  consumed  by  attachment  are  immediately  restored. 
Since  the  associative  detachment  reaction  is  the  controlling  process  for  the  elec¬ 
trons,  the  electron  density  is  determined  solely  by  the  behavior  of  and  atomic 
oxygen.  Accordingly,  during  the  night  the  electron  concentration  decays  slowly 
along  with  the  atomic  oxygen  concentration.  In  this  run  the  atomic -oxygen  profile 
is  the  same  as  ihat  shown  in  Figure  28.  Since  the  02  density  goes  into  quasi¬ 
equilibrium  with  the  electrons  shortly  after  sunset,  it  decays  during  the  night  at 
a  constant  ratio  to  the  electron  density. 

It  is  obvious  that  this  nighttime  behavior  is  contrary  to  all  experimental 
evidence  where  the  electrons  do  decay  rapidly  after  sunset  at-this  altitude.  Some 
of  the  conclusions  that  can  be  drawn  are  the  following: 

a)  The  associative  detachment  reaction  O^  +  O— *»202+e  either 
does  not  take  place  or  it  has  an  extremely  small  rate  constant. 

b)  There  is  some  chemical  reaction  missing  that  is  faster  than 
the  associative  detachment  for  the  removal  of  Oj  and  which 
does  not  produce  electrons. 

c)  Atomic  oxygen  recombines  much  more  rapidly  that  it  dees  in  this 
solution  so  that  the  associative  detachment  reaction  becomes  in¬ 
effective  much  sooneraftcr  sunset. 


Bortner  (I960)  stated  that  the  products  of  the  associative  detachment  reaction  arc 

most  probably  not  0„  and  an  electron  but  00  and  and  that  the  reaction  lias 
A  -10  "  ^ 

a  rate  constant  of  about  1.4X10  .  If  this  is  the  case  the  negative  ion  picture 

will  certainly  be  different  and  the  strange  behavior  of  the  electrons,  as  shown  in 
Figure  35,  will  be  eliminated. 


6.2  llueomiiiciitliitions 

It  can  be  assumed  that  the  complete  chemical  behavior  of  the  atmospheric 
constituents  is  not  contained  in  the  long  list  of  reactions  built  into  the  code.  Not 
only  could  signuicant  chemical  processes  be  missing  but  also  important  constituents 
may  be  omitted.  For  example,  it  is  possible  that  the  NOg  ion  is  an. important 
.charged  species.  In  work  recently  presented  by  Fehsenfeld  et  al.  (19GG),  they 
have  indicated  that  the  ions  COj  and  NOj  might  be  important.  Narcisi  (1965) 
detected  the  presence  in  the  ionosphere  of  metallic  ions  as  well  as  water  vapor 
and  its  derivative  molecular  ions.  Therefore,  it  is  evident  that  the  chemical 
make-up  of  the  ionosphere  has  not  been  completely  defined.  As  new  information 
becomes  available  on  the  presence  of  any  particular  species  in  the  ionosphere,  the 
code  will  have  to  up-dated  to  include  this  species  ss  soon  as  reasonable  chemistry 
for  its  kinetics  can  be  determined.  The  code  on  the  other  hand  is  written  so  that 
it  can  accommodate  such  additions  with  almost  no  effort. 

It  should  be  pointed  out  that  more  information  is  needed  on  some  of  the  reaction 
rates.  For  application  to  the  sunrise  problem,  for  instance,  it  is  essential  that 
work  be  done  to  determine  the  spectral  dependence  of  the  photodetachment  of  the 
important  negative  ions  as  well  as  the  spectral  dependence  of  the  photodissociation 
of  the  important  minor  neutral  molecules.  Since  the  code  produces  results  that 
are  only  as  good  as  our  knowledge  of  the  rate  constants  of  the  reactions,  laboratory 
measurements  of  the  important  processes  not  yet  studied  must  be  undertaken. 
Another  serious  deficiency  is  the  almost  complete  lack  of  irsitu  data  on  the  identi¬ 
fication  of  the  most  abundant  negative  ion  in  the  D  region.  Until  experimentalists 
have  determined  which  ion  this  is  it  will  be  difficult  to  improve  the  chemistry  of 
the  D  region. 

As  more  data  become  available  the  code  should  be  able  to  produce  profiles 
that  are  more  in  conformity  with  experimental  measurements  and  thereby  increase 
its  potential  as  a  prediction  technique.  Meanwhile,  the  code  remains  a  powerful 
tool  for  investigating  complicated  ionospheric  phenomena  tnat  cannot  be  adequately 
explained  by  simpler  means. 

All  of  the  solutions  discussed  in  this  paper  were  obtained  using  the  code  as 
described  in  Section  7.  This  code  was  written  to  comoute  only  the  photochemical 
behavior  of  the  atmospheric  constituents.  It  doesmot 'pretend  to  be  able  to  solve 
the  complete  dynamical  problem.  To  make  the  code  completely  general  such 


65 


physical  phenomena  as  diffusion,  turbulent  mixing,  or  eddy  diffusion  and  wind 
motions  and  shears  must  necessarily  be  included;  It  is  conceivable  that  none  of 
these  dynamic  forces  are  of  great  importance  to  the  behavior  of  the  charged  species 
incorporated  into  the  present' code  because  of  the  short  time  constants  of  the  im¬ 
portant  chemical  reactions.  For  the  neutral  species,  however,  these  transport 
mechanisms  can  be  significant  especially  if  any  of  these  motions  have  time  con- 
stants,shorter  than  the  time  constants  of  the  important  chemical  processes.  From 
the  v/ork  that  Colgrove,  Johnson,  and  Hanson  (1966)  have  .done  on  the  eddy  diffusion 
of  atomic  oxygen,  it  is  obvious;, that  the  problem  of  mixing  cannot  be  ignored. 

For  most  applications  the  transport  problems  are  of  minor  importance. 
Therefore,  it  is  not  intended  at-the  present  time  to  extend  the  code  inv this  direction. 
For  certain  minor  neutral  species  it  might  become  necessary  to  establish  initial 
conditions  by  taking  vertical  transport  into  account;  However,  it  is  anticipated 
that  this  might  be  accomplished  satisfactorily  by  a  semi-empirical  approach. 


7.  DESCRIPTION  OF  THE  CODE 

The  code  consists  of  a  main  program  and  several  subroutines  all  written  in 
FORTRAN-! V  language  for  an  IBM-7044  computer.  Application  of  the  code  to  any 
FOltTRAN-compatible  computer  is  easily  made.  The  basic  program  package  con¬ 
sists  of  the  following  programs: 


a) 

Main  program 

f), 

Subroutine  INITIAL 

b) 

Subroutine  INTEG 

g) 

Subroutine  PRODUC 

c) 

Subroutine  ALGA 

hj 

Subroutine  BALAN 

d) 

Subroutine  SLOP 

-  :5>. 

Subroutine  DAUXT 

e) 

Subroutine  DAUX 

- 

-- 

7'i  Deionization  Codes 

Two  of  the  simpler  problems  to  which  the  code  can  be  applied  are  the  buildup 
of  ionization  under  the  influence  of  a  constant  or  variable  source  of  ionization  and 
the  decay  of  ionization  from  sohie  initial  values  with  or  without  an  external  source 
of  ionization.  The  results  presented  in  Section  4  were  obtained  using  the  code  as 
described  here. 

7.1.1  MAIN  PROGRAM  RATEQ 

The  functions  of  the  main  program  are  to  fix  a  standard  set  of  rate  constants 
in  DATA  statements  to  control  the  input  of  necessary  parameters  and  the  output 
of  results,  to  initialize  the  entire  code  before  starting  a  solution,  to  monitor  the 
flow  of  the  computations,  and  to  determine  the  equilibrium  status  of  the  species. 


7 .  i\  J .  1  The  Rate  Constants 

In  orc\er  to  avoid  reading  the  rate  constants  into  the  computer  for  every  run, 
a  standard  set  of  rate  constants  was  built  into  the  code.  These  rate  constants 
are  listed  in  Section  3.  Every  rate  constant  is  considered  to  be  of  the  form 

k  =  A-TB.e'C^T  (39) 

where  A,  B,  and  C  are  constants  and  T  is  the  temperature  in  degrees  Kelvin.  The 
constants  A  are  set  into  regions  A1(G9),  A2(69),  and  A3(30).  This  split  up  is  neces¬ 
sary  because  of  the  restriction  on  the  number  of  CONTINUATION  cards  allowed  by 
the  version  of  FORTRAN  that  is  used.  The  B's  and  C's-are  set  into  regions  B(168) 
and  C(  1 68)  respectively.  After  the  temperature  and  any  required  changes  in  the 
rate  constants  are  read  into  the  computer,  the  actual  rate  constants  are  computed 
from  Eq.  (39)  and  put  into  the  CON  region. 

7..  1.  1,2  Determination  of  Equilibrium 

The  decision  as  to  whether  a  species  has  reached  its  equilibrium  or  quasi¬ 
equilibrium  value  is  made  by  the  main  program.  For  this  purpose  the  four  regions 
LOCK  (15),  KEY(lo),  CRTNO(15),  and  CRITNQ5)  are  used.  Upon  completion  of  an 
integration,  the  values 

CRTNO(J)  =  NjXrfRi  (4°) 

and 

CRITN(J) 

are  computed, 
equilibrium  is 


1  - 


_3 

are  greater  than  10  ,  the  criterion  for  quasi-equilibrium  is 


*N. 

If  the  slopes  — 


<  DEL  . 


(43) 


The. equilibrium  status  of  each  species  is  determined  by  using  that  criterion  which 
pertains. 

If  the  criterion  fails:  for  any  species,  the  respective  LOCK(J)  is  set  to  zeroy 
If  the  test  is  satisfied,  aone  is  added  to<*'\e  respective  LOCK(J).  After  the  criterion 
is  tested  tor  all  the  species,  the  LOCK(15)  are  tested  to  determine  if  any  have 
reached  three.  If  a  particular  LOCK(J)  is  equal  to  or  greater  than  three,  the 
respective  KEY(J)  is  set  to  two.  Following  this  another  test  is  made  to  determine 
if  any  species  has  decayed  below  the  value  CHT.  If  any  one  has,  the  respective 
KEY(J)  is  set  equal  to  three.  Once  a  KEY(J)  is  set  to  three  it  will  remain  at  that 
value  for  the  remainder  of  the  solution.  The  values  in  the«KEY  region  are  used 
by  several  of  the  subroutines  for  branching, depending  on  the  status  of  the  concen¬ 
trations  of  the  species. 

The  status  of  any  particular  species  can  be  determined  at  any  time  by  simply 
investigating  its  KEY  value.  The  species  j  will  not  be  in  equilibrium  if  its  KEY 
is  on  one;  it  will  be  in  equilibrium  if  its-KEY  is  on  two;  its  concentration  will  be 
zero  or  a  constant;  its  equations  are  removed  from  the  sets  if  its  KEY  is  on  three; 
and,  its  concentration  will  be  computed  from  the  charge  balance  equation 

2>- =  2X  <44> 

if  its  KEY  is  on  four. 

7. 1.1.  3  Input  Parameters 

Those  parameters  that  the  code  requires  to  solve  a  specific  problem  are  put 
on  cards  that  immediately  follow  the  binary  decks  for  the  program.  The  binary 
decks  and  the  BCD  data  cards  are  read  into  the< computer  from  FORTRAN-tape  5. 
The  purpose  of  each  data  card  and  the  FORMAT  in  which  it  is  prepared  are  as 
follows: 

CARD  1  FORMAT{  12  AtO 

This  card  contains  up  to  70  BCD  characters  that  caij 
be  used  for  identification  afrthe  discretion  of  the  user. 

CARD  2  P0RMAT(1P4E12.  5) 

This  card  contains  four  variables: 


G8 


(1)  EUBAR  -  the  criterion  for  the  solution  in  the 
integrating  routine.  This  must  be  some  number 
less  than  10~‘  which  is  determined  only  by  the 
degree  of  accuracy  desired  in  the  integrated  values. 

(2)  ELBAR  -  the  criterion  for  the  solution  of  the  ex¬ 
ponential  equations.  This  must  be  some  number 

-3 

less  than  10  which  is  determined  by  the  amount 
of  charge  imbalance  that  can  be  tolerated  in  the 
results. 

(3)  DEL  -  the  criterion  for  equilibrium.  This  should 

-2 

be  some  number  around  10,'  .  If  it  is  much  larger 

than  this,  a  species  will  be  put  into  quasi-equilibrium 

too  soon  and  the  solution  of  the  exponential  equations 

_2 

can  fail.  If  it  is  much  smaller  than  10  and  a  species 
is=in  equilibrium,  its  differential  equation  may  not  be 
removed  from  the  set.  The  set  of  differential  equa¬ 
tions  cannot  be  solved  with  the  current  increment  if 
the  set  contains  an  equation  for  a  species  whose  con¬ 
centration  is  in  equilibrium  or  quasi-equilibrium. 

In  order  to  solve  such  a  set  of  equations,  the  increment 
will  have  to  be  reduced  considerably  at  the  expense  of 
much  computer  time. 

(4)  ENDT  -  the  time  in  seconds  to  "which  the  solution 

is  to  run.  This  is  the  time  associated  with  dN/dt  and 
is  not  to  be  confused  with  the, running  timeof  the  code 
on  the  computer. 

CARDS  FORMATU4) 

This’card  contains  the  integer  NOC  indicating  the  number 
of  rate  constants  that  are  to  be  changed  for  the  run.  If 
no  changes  are  necessary,  this  card  must  contain  a  zero. 
Following  this  card  are  the  changes  then,  selves.  If  there 
are  no  changes,  CARD  4  is  read  next.  The  changes  are 
punched  one  per  card  in  FORMAT(I4, 1PE10.2,OPF5. 1, 
1PE10.2, 7A6).  Field  1  is  the  reaction  number  as  listed 
in  Section  3,  fields  2,  3,  and  4  are  the  A,  B,  and  C  in 
Eq.  (39),  field  6  represents  any  42-BCD  characters  that 
the  user  wishes  to  insert  as  comments. 


89 

CARD  4  FORMAT(lP5E12.  5) 

This  card  contains  five  input  parameters: 

(11  ART  -  the  altitude  in  centimeters  at  which  the 
solution  is  to  be  made. 

-3 

(2)  D  -  the  total  number  density  in  cm  .. 

(3)  ,D02  -  the  concentration  of  molecular  oxygen 

-3 

in  cm  at  the  given-altitude. 

(4)  DN2  -  the  concentration  of  molecular  nitrogen 

_3 

in  cm  at  the  given  altitude. 

(5)  T  -  the  temperature  in  degrees  Kelvin  at  the 
given  altitude. 

CARDS  5-7  FORMAT(lPGE12.  5) 

These  cards  contain  the  initial  concentrations  of  the 
species  in  the  following  order:  electrons,  O  ,  Og, 

Oj  ,  NOg. ,  0+  ,  Og  ,  Ng  ,  NO+  ,  NO  ,  N  ,  NOg  ,  O3  ,  NgO  , 
and  atomic  oxygen.  The  last  value  in  this, set  is  the  con- 
st&nt  production  rate  in  number  of  ion-pairs /cm  /sec. 

CARDS  FORMAT(4I2) 

This  card  contains  the  option  switches. 

KB1=0  for  logarithmic  output. 

KB1-1  for  decimal  output. 

KB2=0 -calls  DAUXT  to  print  the  history  of  the  reactions. 

KB2al  suppresses  the  call  of  DAUXT.. 

KB3=0  prints  this  history  after  every  integration  if 
DAUXT  is  called. 

KB3=1  prints' this  history  only  once  for  each  decade  of 
time  if  DAUXT  is  called. 

KB4=0  returns  control  to  the  system  on  an  error. 

KB4-1  program  returns  to  the  input  area  to  read  another 
set  of  data  cards  when  an  error  occurs. 

It  is  possible  to  stack  as  many  sets  of  these  data  cards  as  desired  because4he 
program  always  returns  to  the  input  area  when  it  has  completed  the  computations 
for  a  given  set  of  data. 

7. 1.1.4  Programmed  Variables 

There  are  other  parameters  that  can  be  changed  by  reassembly  of  the 
mainprogram: 


a)  CHI  -  the  lowest  value  to  which  a  species  may  decay.  This  test 

is  incorporated  to  prevent  computer  underflow  in  the  event  that 

_■)() 

any  species  concentration  decays  below  10  .  The  limiting 

value  used  in  the  programs  given  here  is  10”10.  If  a  species 
should  try  to  decay  below  this  value,  its  concentration  is  set 
to  zero  and  its  equations  are  removed  from  the  sets  by  sotting 
its  KEY  cn  three. 

b)  NOGOM  -  the  number  of  reactions  built  into  the  system. 

c)  ENoE  -  a  preset  lower  limit  on  the  elf  ctron  density.  This  test 
is  included  in  order  to  terminate  the  solution  when  the  electron 
density  falls  below  a  certain  value.  This  permits  the  computation 
of  densities  only  over  the  range  of  interest.  When  the  electron 
concentration  decays  below  this  value,  control  is  transferred  to 
the  input  area  of  the  code.  If  noTimit  is  to  be  placed  on  the  elec¬ 
tron  density,  this  value  must  be  set  to  zero. 

d)  ITER  -  the  maximum  number  of  iterations  that  will  be  made  in 
attempting  to  solve  the  simultaneous  exponential  equations.  If 
a  solution  cannot  be  found  within  this  number  of  iterations, 
iteration  of  the  exponential  equations  will  stop  and  the  unsuccess¬ 
ful  return  from  subroutine  ALGA  will  be  taken. 

e)  NUMB  -  the  number  of  differential  equations  in  the  set  to  be 
solved. 

7.1. 1.5  Output 

FORTRAN-tape  G  is  the  normal  system  output  tape.  When  the  computations 
are  completed,  this  tape  will  contain  all  of  the  output  information  with  the  exception 
of  the  history  of  the  reactions.  The  first  thing  written  on  this  tape  is  the  comment 
-  read  into  the  computer  on  the  first  data  card.  This  card  contains  any  72  hollorith 
characters  that  the  user  wishes  to  insert  as  identification.  Following -this  the 
program  writes  the  list  of  changes  that  are  made  in  the  build-in  standard’list  of 
reaction-rate  constants.  The  program  then  writes  the  altitude  at  which  the  cal¬ 
culations  are  being  made,  the  total  number  density,  and  the  temperature.  After 
this  is  written,  the  rate  onstancS  for  the  reactions  with  the  coefficient  A  first 
and  underneath  this  the  total  reaction  rate  with  the  proper  temperature  dependence. 
Following  this  is  the  time  and  the  computed  concentrations  for  this  time  of  all  the 
the-negative  and  the  positive  species. 

During  the  execution  of 'the  program  the  time,  the  concentrations  of  the  neutral 
spec'es  computed  for  this  time,  the  value  of  the  production  function,  and  the  setting 
of  the  KEY  switches  are  written  on  Tape  1  in  binary.  Upon  completion  of  the  rolution 
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for  a  particular  set  of  input  data,,  this  information  is  automatically  transferred  to 
Tape  6.  Tape  1  is  left  in  a  rewound  condition. 

FORTRAN-tape  4  is  used  by  subroutine  DAUXT  for  writing  the  history- of  the 
reactions  if  such  a  history  is  requested.  Upon  completion  of  tne  computations, 
this  tape  must, be  removed  for  off-line  printing. 

The  following  statements,  beginning  on  page  72, are  a  listing  of  the  main  program. 

7.1.2  TIIE  INTEGRATING  SUBROUTING  INTEG 

This  subprogram-is  called  by  the  main  program  and  performs  the  numerical 
integration  of  the  differential  equations.  For  solving  a  set  of  differential  equations 

dN. 

”d T=  F1(t»N1,N2,N3...  Nm)  , 

dN9 

-gr  “F2(t,-N1,N2.N3...  Nm)  , 

dN„ 

“dt  =  P3(t.Ni.^.H8...  Nm)  , 


non 
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UBFTC  RATEQS  LIST  RATEOOOO 

C  SOLUTION  OF  THE  REACTION  RATE  EQUATIONS  IN  THE  IONOSPHERE  FOR  15  SPERATE0005 


C  1ES  AND  WITH  168  REACTIONS. 

C  KB1 *0  FOR  LOG  OUTPUT. 

C  XB1»;  FOR  DECIMAL  OUTPUT 

C  KB2«0  PRINTS  THE  HISTORY  OF  THE  REACTIONS. 

C  K82*  l  REACTION  HISTORY  NOT  COMPUTED. 

C  KB3*0  PRINTS  HISTORY  AFTER  EACH  INTEGRATION. 

C  KB3-1  SXINTS  HISTORY  ONCE  EACH  DEC AOE  OF  TIME. 

C  K84*0  HALTS  ON  ERROR. 

C  KB4»l  READS  ANOTHER  POINT  CARD  AFTER  AN  ERROR. 
C  IPLOT-O  NO  PLOTTER  TAPE  MAOE. 

C  IPLOT-1  HAKES  A  LOG  PLOTTER  TAPE. 

C  UNITS  OF  INPUT  PARAMETERS  ARE  CGS. 

C 


RATEC’310 

RATE0015 

RATE0020 

RATE0025 

RATE0030 

RATE0035 

RATE0040 

RATS0045 

RATE0050 

RAYE0055 

RATE0060 

RATE0065 


RATE0070 

COMMON  TREGI 1501 .KEY  I  151 .FORM! 15 » , REMVI 15) .CONI  163  I , LKEYI 15) »  BEG I NR AT EOO 75 
11151  RATE0080 

COMMON  NUMB, EUB AR.EL8AR.0, 002, 0N2 ,  T ,  PNE ,  PNO,  P02  ,  PO ,  PN2, TOTAL, JACK, RATE0085 
1J AKE, J AM, ITER, LINT, I2NT, K2 NT, J2 NT, N2NT, FIRST, PROD, LAM, T IME.KB3, T0TRATE0090 
20.T0TN  RATE0095 

COMMON  VQ(30I  ,'IQI  30)  , SIGN!  30  I, ITEM  RATE01C0 

DIMENSION  D0NTI20) .TITLE 1 12) , TTREGI 20 > ,CRITN I l 5 > .CRTNOI 15),A( 168) .RATE0105 
1BT168) ,C(168) , LOC 
OATA  Al/  0.44E»00 
1 3. 60E-16, 1 .OOE-13 
21.006-13, l.OOE-13 
3 l .006- 11 » l .OOE-31 
44.006-29,0  .00E-00 
51 .OOE-22 , l .OOE-22 
65.906-97, 5 .096-0 7 
75.006-07,5.006-07 
85.00E-07.5.006-07 
91. 00 £-23,1.006-23 
OATA  A2/  l.OOE-13 
ll.OOE-lf f 1 .OOE-13 
24.00E-11.2.40E-11 
30.00E-00, 5.00E-12 
41 .09E-09 ,1 .00E-09 
SO.OOE-OO.O.OOE-OO 
60. "OE-OO, 0.006-00 
73. OOE- 12, 1 .OOE- 1 1 
8 1. OOE- 34, 1 .OOE- 1 7 
91. OOE-24,1. OOE-22 
DATA  A3/  2.60E-35 
13.00E-30* l.OOE-33 
22.00E-10,5;00E-U 
3 2. OOE- 11 .8.00E-1 3 
45. 346-03,1. OOE-13 

OATA  B/4*0. 0,3*2. 0.16*0. 0,3*0. 5, 3*0. C,3*-1.0, 

1-0.5, 11*- 1.5,55*9. 0,-1. 0, 10*0.0 ,3*-0. 5, 3*0.0 , 

2, 1. 5, 4»0. 0,1. 5, l 3*0.0/ 

OATA  C/4*0.O,3*5.1E3,O.0,4.7E3,ll*0.0,7.2E3,47*0.0,3E3,2*0.0,lE4, 7RATE0255 
l*0.0»5E3*37*0.0,2E3»3E3»3*0.0,»3.5E3«0.0*5E3»4E3»ll *0 .0,2*-9E2, 2*0 .RATE0260 
20, 264, 2*-9E2,0.0,3E3,iE4, 0.0, 3.7564,1 .9E4.5. 3E2, l. 4E4, 1.35E4, 2.8E3RATE0265 
3,6.6E3,0.0,7E3,2*0.0,1.2E3,8*0.0/  RATE0270 

RATE0275 

INITIALISATION  OF  SYSTEM  AND  INPUT.  RATE0280 

RATE0285 

REWIND  0  RATE0290 


(15) ,ALF (7 ) , G( 168 ), Al I  69 ) , 

A2 (  69 ) , A3 1 30 ) 

RATE0110 

1.40E400 

0.04E  *00 

0.04E*00 

9.00E-15 

3.60E-16, 

RATE01 15 

l.OOE-13 

1. OOE-13 

1 .OOE-13 

l.OOE-13 

l.OOE-13, 

RATE0120 

1.31E-15 

1  .006-19 

1.00E-17 

1.00E-17 

l.OOE-ll, 

RATE0125 

1. OOE-31 

1.40E-31 

5.80E-33 

1.90E-33 

6.00E-28, 

RATE0130 

6.00E-05 

9.00E-0S 

1 .50  E-04 

1.09E-24 

1. OOE-22, 

RATE0135 

1.00E-23 

2.20E-10 

l.OOE-12 

l.OOE-12 

1. OOE— 12, 

RATE0140 

5.00E-07 

5.00E-07 

5.00E-07 

5.00E-07 

5.00E-07  , 

RATE0145 

5.00E-07 

5.00E-07 

5.00E-07 

5.00E-07 

5.00E-07, 

RATEU150 

1.006-23 

1.006-23 

1.00E-23 

1.00E-23 

l.OOE-23, 

RATE0155 

1.O0E-23 

l.OOE-23 

1.00E-23 

1.006-23 

l.OOE  11/ 

RATE0160 

1.006-13 

O.OOE-CO 

l.OOE-13 

l.OOE-13 

l.OOE-ll, 

RAT  E0165- 

0.00E-00 

l.OOE-13 

l.OOE-13 

l.OOE-13 

l.OOE-13, 

RATE0170 

O.OOE-OO 

O.OOE-OO 

8.00E-10 

l.OOE-12 

1.00E-10, 

RATE0175 

1.00E-09 

1.09E-09 

l.OPE-12 

1.00E-09 

1.00E-09, 

RATE0180 

1. OOE- 16 

l.OQE-18 

O.OOE-OO 

O.OOE-OO 

O.OOE-OO, 

RATE0185 

1. 006-15 

1.00E-29 

l .00E-29 

O.OOE-OO 

O.OOE-OO, 

RATE0190 

0. C0E-00 

1 .006-30 

1.00E-30 

3.00E-12 

3.00E-12, 

RATE0195 

1.806-10 

l.OOE-ll 

2.50E-10 

l.OOE-ll 

1.00E-28, 

RATE0200 

l.OOE-21 

1  .006-21 

2  .OOE- If 

1.00E-24 

6.40E-17, 

RATE0205 

1.  OOE-22 

5.00E-32 

2. OOE-31 

5.00E-32 

3.20E-35/ 

RATE0210 

6.50E-34 

2. OOE-31 

2.00E-33 

3.00E-33 

4.50E-33, 

RATE0215 

l.OOE-33 

O.OOE-OO 

1.10E-10 

7.10E-17 

3.00E-11, 

RATE0220 

5.00E-10 

3.00E-16 

2.50E-11 

2. OOE-13 

4.00E-12, 

RATE0225 

5.00E-06 

6.00E-08 

3.00E-03 

4.08E-07 

5.58E-08, 

RATE0230 

l.OOE-13 

/ 

RATE0235 

5»-l. 5, -0.7, 3*0.0, 16*RATE0240 
-0.5, 3*0.0,- 1.0, 4*0. 0RATE0245 
RATE0250 


uuu 
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REWIND  1 

REWIND  3 

REWIND  8 

CHl-l.OE-lO 

N0C0H-168 

NUM8-15 

ENOE-O.O 

ITER«30 

KB6-1 

5  WR  I TE 1 6, 400 ) 

READ! 5 #445 )  IT ITLEIN) ,N*1,  VZ\ 

WRITE! 6,450)  ( TITLE! N J  ,N*l , 121 
READ! 5V395 >  EUB AR ,£LB AR, DEL , ENDT 
READ! 5*420)  NOC 

if!noc  ;eq.  oi  go  to  30 

WRITE16.490) 

00  25  J-l.NOC 

READ! 5,5001  I  ,GI l 1 , B ! I  1 , C! It . ! ALF ! N) , N« 1 ,7 1 

IF! I  ,GT.  691  GO  TO  10 

AHI1-G1!) 

GO  TO  20 

10  IF! I  .GT.  1381  GO  TO  15 
A2( 1-69) -Gil) 

GO  TO  20 

15  A3! 1-138 )«G(  1 1 

20  WR I TE! 6*  500 1  I ,G! 1 1 , B ! 1 1 ,C 1 1 1 , I ALF! N) ,N« 1 ,7 1 
25  CONTINUE 

30  REAO!5,3951  ALT ,0,002 ,0N2, T 

READ! 5.3951  I8EG IN! J 1 , J- 1 , 1 5 1 , PROD 

READ! 5,415 1  KB  1 ,KB2,KB3. K84» I PLOT 

TIHE-l.OE-G 

MOUNT-O 

KNT  *0 

JAKE*! 

JACK*1 

LAM-6 

KLOT-O 

00  35  J-l, 150 
35  TREGIJ  1-0.0 

LINT-I !2*NUMB)»41 
I2NT-! !3*NUM8I*4) 

K2NT-! !4*NUMB)*41 
J2NT-! ( 5*NUMB) *4) 

N2NT-! !6*NUMB)*4) 

DO  40  J-l.NUMB 
TTREGI  J«-3I*0*0 
LOCK  !'J)-0 
40  KEY! J 1-1 
CALL  INITAL 

COMPUTE  RATE  CONSTANTS  IN  THE  FORM1 K« A*! T**B 1 *EXP1 -C/T 1 
K-l 

00  45  J-l ,69 
AIK1-AI! J) 

45  K-K+l 

DO  50  J-l, 69 
AIKJ-A2!  Jl 
50  K*K»1 


RATE0295 

RATE0300 

RATE0J05 

RATE0310 

RATE0315 

RATE0320 

RATE0325 

RATE0330 

RATE0335 

RATE0340 

RATE0345 

RATE0350 

RATE0355 

RATE0360 

RATE0365 

RATE0370 

RATE0375 

RATE0380 

RATE0385 

RATE0390 

RATE0395 

RATE0400 

R ATE0405 

RATE0410 

RATE0415 

RATE0420 

RATE0425 

RATE0430 

RATECV35 

PATEC440 

RATE0445 

RA7E0450 

RATE0455 

RATE0460 

RATE0465 

RATE0470 

RATE0475 

RATE0480 

RATE0485 

RATE0490 

RATE0495 

RATE0500 

RATE0505 

RATE0510 

RATE051 5 

RATE0520 

RATE0525 

RATE0530 

RATE0535 

RATE0540 

RATE0545 

RATE0550 

RAT60555 

RXTE0560 

RATE0565 

RATE0570 

RATEC575 

RATE0580 

RATE0585 


00  55  J*l,30 
A ( K  >  »  A  3 ( J1 
55  K*K*-l 

00  60  J*  l iNOCOM 

60  CONI J l*A  (JI*1T«*B!JI  )*£XPI*'CIJ)/T) 

PREPARE  OUTPUT  TAPES  ANO  WRITE  RATE  CONSTANTS  AND  INITIAL 
CONDITIONS. 

WRITEI3.650)  I Tl TLEI M) »M*1 1 12) 

WRITEI6.605)  ALT.O.T 
WRITEI6.680) 

IS*1 

00  65  J*ls15 
I T* I S*5 

WRITEI6.655I  (I • A ( 1 1 ,1*1 S, ITI 
W?,'I  TEI  6*485  I  ( I  i  CONI  11,1*1 S,ITI 
I S« I S*6 
65  CONTINUE 
> ITEI6.5X5I 
DO  7,0  J*1 « 13 
IT*1S»5 

WRIT  El  6,6551  1 1 , A I  I) , I *1 S, I T I 
WRITE (6, 685 1  II ,CGN( I  1,1*1 S, IT) 

IS«IS*6 
70  CONTINUE 

WRITEI6.610) 

IFIK81  .eOV'.OI  GO  TO  80 
75  WRITE! 6«'505»  TREGI 21 ,  I TREGI J ) » J=6» 12) ,PROO 

-WRITECl)  TRE^(2I ,  I TREG I J ) , J*13 , 1 8 1 . OO2.0N2, IKEY I J I , J* l , 15 ) 
MOUNT-NOUNTH, 

GO  TO  135 
80  M*NUM6»3 
DO  95  J*2,M 
OEC-TREGCJI 
IFIOEC)  360,85,90 
85  DQNT I J ) *0.0 
GO  TO  95 

90  OONTI J  1-ALOGlOIOEC) 

95  CONTINUE 

IFI002  ,E0.  -0.0)  GO  TO  100 
d602*AL0G10(002I 
GO  TO  105 
100  0002*0.0 

105  IFI0N2  .EQ.  0.01  GO  TO  110 
0DN2*ALQG1CI  0N2I- 
GO  TO  115 
110  D0N2*0.0 

115  IFIPROOI  360,120,125 
120  0PR00*Q.0 
GO  TO  130 

125  0PR00*AL0G10<  PROD  I 

130  WRITE  I  6, 5051  OONTI 21 , IDONT (J) , J=6, 12) ,OPROO 

WRITE* II  OONTI 21 .IDONT I J) , J*13,18) , ODO? , 0DN2 , IKEY1 J), J*l, 15) 
NOUN  T*  MOUNT  ♦  1 
135  DO  160  K*l»NUNB 

IF IKETIK )-2 )  165.160,160 
160  CONTINUF 
CALL  ALGA 


RATE0590 

RATE0595 

RATE0600 

RATE0605 

RAT  E0610 

RATE06 15 

RATE0620 

RATE0625 

RATE063C 

RATE0635 

RATE0660, 

RATE0665 

RATE0650 

RAT60655 

RATE0660 

RATE0665 

RATE0670 

RATE0675 

RATE0680 

RATE0685 

RATE0690 

RATE0695 

RATE0700 

RATE0705 

RATE0710 

RATE07 1 5 

RATE0720 

RATE0725 

RATE0730 

RATE0735 

RATE0760 

RATE0765 

RATE0750 

RATE0755 

R ATE0760 

RATE0765 

RATE0770 

RATE0775 

RATE0780 

RATE0785 

RATE0790 

RATE0795 

RATE0800 

RATE0805 

RATE0810 

RATE0815 

RATE0820 

RATE0825 

RATE0830 

RATE0835 

RATE086C 

RATE0865 

RATE0850 

RATE0855 

RATE0860 

RATE0865 

RATE0870 

RATE0875 

RATE0880 


non  o  r>  n 


75 


TREGO ) "Z.0*TREGI  3  ) 

Hr  TE0885 

TREG<2)*rREG)2)«-TREG<3) 

RATE0090 

GO  TO  150 

RATE0895 

RATE0900 

INTEGRATION  OF  EQUATIONS  STARTS  HERE. 

RATE0905 

RATE0910 

145 

CALL  INTEG 

RATE0915 

150 

CALL  BALRN 

RATE0920 

IFITREGI3)  .NE.  2.0E-6)  GO  TO  155 

RATE0925 

KLOT*KLOTU 

RATE0930 

IFIKLOT  ,GT.  10)  GO  TO  160 

RATE0935 

155 

KL0T*0 

RATE0940 

1^0 

GO  TO  165 

RATEC945 

PRINT  470 

RATE0950 

GO  TO  365 

RATE0955 

RATE0960 

OUTPUT  OF  RESULTS  STARTS  HERE. 

RATE0965 

RATE0970 

165 

IFIKNT  .NE.  50)  GO  TO  170 

RATE0975 

WRITEI6.410) 

RATE0980 

KNT-0 

RATE0985 

170 

KNT»KNT»1 

RATE0990 

1FIKB1  .EQ.  0)  GO  TO  175 

RATE0995 

MR I TEI 6t 505)  TREG(Z) ,( TREGIJ) « J*4» 12) f TOTAL 

RATE1000 

WRITE!  1 )  TREGI2),ITREG<Jt,J*13,18l  .002, 0N2.  IKETIJ)  ,J*  1,15) 

RATE1005 

GO  TO  210 

RATE1010 

175 

K-NUMB+3 

RATE1015 

00  190  J*2,lC 

RATE1020 

OEC*TREGC  J ) 

RATE1025 

IF  1  DEC )  360,180,185 

RATE1030 

\180 

D0NT<J)>0.0 

RATE1035 

GO  TO  190 

R ATE1040 

185 

OajJTIJMALOGlOCDEC) 

RATE1045 

190 

CONTINUE 

RATE1050 

D002*ALOG10(D02) 

RATE1055 

ODN2=ALOG10ION2) 

RATE1060 

IF!  TOTAL)  360,195,200 

RATE1H65 

195 

T0TL=0.0 

RATE1070 

GO  TO  205 

RATE1075 

200 

TOTL’ALOGIOITOTAL) 

RATE1080 

205 

MR  I  TEI 6, 505)  OONTI2) , (OONII J), J«4,12) ,TOTL 

RATE1085 

MR  I  TEI1 )  00NTI2)  ,<OONTIJ),  J*13,18)  ,D002,DDN2,{KEY<  J),.)»l,  15! 

RATE1090 

210 

MOUNT  *MOUN  T+l 

AATE1095 

CALL  PLOT! I  PLOT) 

RATE1100 

IF ( JAKE-2)  215.350,355 

RATE1105 

215 

JACK=2 

RAVEUTO 

KIND*1 

RATE 1115 

CALL  SLOPCKINO) 

RATE1120 

K I  ND*2 

RATE1125 

CALL  SLOP(KINO) 

RATE1130 

N2»L INT 

RATE1135 

00  220  1*1, NUMB 

RATEI140 

CRITNI I)«2.0*A8SI <  TREG(N2)-TREGU  *3  >) /TREGC  3  » ) 

RATE1145 

CRTNOI  l)*REHVU)*TREG<I«-3) 

RATcllSO 

N2*N2+1 

RATE1155 

220 

CONTINUE 

RATE1160 

CRTNQI 10)*CRTN0I 10)»PN0 

RATE1165 

CRTNOI  15)»CRTN0(  15)«-P0 

RATE1170 

00  250  J*l,NUM8 

RATEl 175 

— 
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5 

S- 


76 


t 
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- 
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225 

230 

235 

240 

245 


IFICRITNIJI-1.0E-3)  225.225,230 

IF ( ASSt l .0- t FORM! J)/CRTNOI J))) -DEL I  245,245.240 

1FICRTN0IJ))  235.250,235 

IF ( ICRITNl J)/CRTNOIJ) )-D£L)  245,240,240 

LOCK  I J ) “0 

GO  ro  250 

LOCK  I J) *L0CK| J ) ♦! 


250  CONTINUE 

255  DO  275  J*1.NUM8 

IF f  KEY*  J  1-3 >  260,275.275 
260  IFIL0CKL'j>-3J-  265,270,270 
265  KEY!  J>*1,.' 

GO  TfJ  275 
270  KEY III  )  *2 
275  CONTINUE 

00  280  J*1,NUMB 

IF I  KEY l J I  .GY.  21  GO  TO  280 

IF  (TREGI  J  3 )  .GT.  TTREGlJ<-3))  GO  TO  280 

IFITReGI  J63)  .GT  •  CHI)  GO  TO  280 


KEY! J)*3 
TREGI J  *31*0.0 
280  CONTINUE 

IFCPNE)  300,285, 3CC 

285  IF ( I TREGI 4) /BEGIN 1 1) )-l«0£~3)  290,300,300 
290  DO  295  J»1.3 
TREGI J*3I«0.0 
295  KEY! J ) *3 
300  DO  305  J-l.NUMB 
305  TTREGI J»3)«  TREGI J+3) 

IFIKB2  .EQ.  1)  GO  TO  315 
310  CALL  DAUXT 


DECISION  TO  CONTINUE  INTEGRATION  OK  STOP  IS  MADE  HERE. 

315  IFITREGI4)  .LT.  ENOE)  GO  TO  370 
IF{ TREGI 2 )  .LT.  ENOT)  GO  TO  320 
GO  TO  370 


C 

C 

C 


C 

C 

C 


TEST  SYSTEM  CLOCK  FUR  IMMINENT  TIMER  OVERFLOW. 
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CALI  1CK 

CAL'  t  tETI4,K00CFX) 

GO  T  *  .  5,325) , KOOOFX 

BIG*  AA..  IREGI4I  .TREGI5)  .TREGI6) , TREGI  7)  .TREGI8) ) 
DO  330  J*l,5 

IF  I  BIG  .EO.  TREGI J*3) )  GO  TO  335 
CONTINUE 

IFIJ-LAM)  340.345,340 

KEYILAM1*1 

JACK»1 


345  LAM*J 

KEY! LAM) *4 
GO  TO  135 


ERROR  COMMENT  OUTPUTS. 


350  WRITEI6.430)  TREGI2) 
GO  TO  365 

355  WRITE  I  6,435)  TREGI 2) 


RATE1180 

RATE1185 

RA1E1190 

RATE1195 

RATE1200 

RATE1205 

RATE1210 

RATEV215 

RATE1220 

RATE1225 

RATE1230 

RATE1235 

RATE1240 

RAT61245 

RATE1250 

RATE1255 

RATE1260 

RATE1265 

RATE1270 

RATE1275 

RATE1280 

RATE1285 

RATE1290 

RATE1295 

R  AT  El  300 

RATE1305 

RATE1310 

RATE1315 

RATE1320 

RATE1325 

RATE1330 

RATE1335 

RATE1340 

RATE1345 

RAT5V350 

RAT  El  355 

RATE1360 

RATE1365 

RATE  1370 

RATE1375 

RATE1380 

RATE1385 

RATE1390 

OAT El 395 

R  AT41400 

RATfci405 

RATE1410 

RATE1415 

RATE1420 

RATE1425 

RATE1430 

RATE1435 

RATE1440 

RATE1445 

RATE1450 

RATE1455 

RATE1A60 

RATE1465 

RATE1470 


o  o  n 
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C 


GO  TO  365 

RATE1675 

360 

WR1 TE( 6« 425 1 

RAT61480 

K«NUMB+3 

RATE148S 

WR! TEC  6, 660)  ( TREG(J) ,J=2,K) .TOTAL 

RATE1690 

365 

IFIKB6  .60.  1»  GO  TO  370 

RATE1695 

K86«2 

RATE1500 

RATE1505 

TRANSFER  ALL  RESULTS  TO  OUTPUT  TAPE  HERE. 

RATE1510 

RATE1515 

370 

REWIND  1 

RATE1520 

END  FILE  3 

RATE1525 

IF  I I PLOT  .NEi  U  GO  TO  380 

RATE1530 

END  FILE  0 

RATE1535 

REWIND  8 

RAVE1560 

00  375  K=1 « I  TEN 

RATE1565 

READ!  81 S  IGH(  11  •  I0(  1  i .  I  SIGN!  J)  •  I0(  J  )»J«10»17) 

RATE1550 

WRITEI0S57-''»5IGN(  1),  IOIU.ISIGNl  Jl,  IQ!J),J»10, 

17) 

RATE1555 

375 

CONTINUE 

RATE1560 

end:  FILE  0 

RATE1565 

REWIND  8 

RATE1570 

ITEM-in 

RATE1575 

380 

KNT*0 

RATE1580 

WP.ITE(6,6751 

RATE1585 

DO  385  K»l, MOUNT 

RATE1590 

READ  1 1 )  TREG!2),!TREGIJ),J*13,18) ,002 ,DN2, 1KEY!  J),J«1 

,15)  RATE1595 

WRITEI6.510I  TREG!2),!TREG!J),J«13, 18),D02,DN2 

•  (KEY!  J  l>. 

if  1, 15)  RATE  1 600 

KNT«KNTf 1 

RATE1605 

IFIKNT  .LT.  501-  GO  TO  385 

RATE1610 

WRITE16.675) 

RATE1615 

KNT*0 

RATE1620 

385 

CONTINUE 

RATE1625 

REWINO  1 

RATE1630 

GO  TO  (5.390I.KB6 

RATE1635 

390 

REWINO  3 

RATE1660 

CALL  EXIT 

RATE1665 

RATE  1 650 

395 

FORMAT  (  1P6E12.51 

RATE1655 

600 

FORMAT! 76H1S0LUTI0N  OF  THE  REACTION  RATE  :EOUAT IONS  WITH 

15  SPEC IE SR ATE 1660 

l'  AND  168  REACTIONS.  1 

RATE1665 

605 

FORMAT!  1 1H1ALT I TUDE  »1PEU.6,6H  CM..16H  TOTAL 

DENSITY 

S 

IP 1 12.5, 16HRATE1670 

1  TEMPERATURE  »0PF7.2) 

RATE1675 

610 

FORMAT! 122HI  TIMEISECI  N!EI/CC  N10-1/CC 

NI02-1/CC 

NI03-  )/CCRATE1680 

l  NIN02-1/CC  Nl 0«-l /CC  NI026J/CC  NIN20/CC 

N(  NO*-)  /CC 

PRODUCT) OR AT El 685 

2N) 

RATE1690 

615 

FORMAT! 7 121 

RATE1695 

620 

FORMAT! ! 61 

RATE1700 

625 

FORMAT 165H0 THE  PROGRAM  IN  TRYING  TO  GENERATE  THE  LOG 

OF 

A  NEGATI VERATE1 705 

l  NUMBER.  1 

RATE1710 

630 

FORMAT 165 HO THE  INTERGRATING  MESH  IS  VANISHING 

IN  INT 

AT 

1PE11 • 5 »6HRATE1715 

l  SEC.  1 

RAT  E1T20 

635 

FORMAT (67H0THE  INTERGRAY ING  MESH  IS  VANISHING 

IN  ALGA 

AT  IPE11 .5»6RATE1725 

1H  SEC.  » 

RATE1730 

660 

FORMAT! 1P10EIO.2) 

RATE1735 

665 

FORMAT! 12A6 ) 

RATE1760 

650 

FORMAT! 1H0.12A6) 

RATE1765 

655 

FORMAT! 1H0,! 6! 2X6H  A! ,1 3 ,2HJ- IPE10 .3 1 I 1 

RATE1750 

660 

FORMAT IIHO.I 6! 2X6H  A! ,1 3,2H) «IPE 10 .3 ) >> 

RATE1755 

665 

FORMAT! 1H  , ! 612X6HC0N! , I 3, 2H)*1PE10 .3 ) 1 1 

RATE1760 

670 

F0RMAT(63H  THE  INCREMENT  IS  CONSTANT  AT  1.0E-06  SEC; 

) 

RATE1765 

78 


475  FORMAT ( IZ1H1  T!ME!SECI  N(NO)/CC  NtNI/CC 
1  N(N20)/CC  NIOI/CC  H(02) /CC  ^N(N2)/CC 

2) 

480  FORMAT! 22H0REACT ION  COEFFICIENTS) 

485  FORMAT I IH  , 1 61 2X4HC0N! , 13 , 2H)« IPE10  iO  ) I) 

470  FORMAT  (  1H0, 20X  »86HTHE  FOLLOWING  ISi'A  LIST  OF 
1  FROM  THE  STNO  LIST  USED  IN  THIS  RUN.  ) 

495  FORMAT ( 102HI  TIME  (SEC)-  02  DENSITY  NZ'OENSITY 
13^  N02-  Of  02*  N2+  NO  N  N02  03  NO*  N20’  0  ) 

500fF0RMAT(I4,lPE10.2,0PF5.l,lPEl6.2,7A6) 

505-iFORMAT  (1P11E11.3) 

510  FORMAT, (IP9E1 1.3. 5  12,  LX, 41 2.  IX,  61 2) 

515  FORMAT! 1H1) 

520  FORMAT ( 6X1 1 ! A1 , I  5 ) ) 

END 


N(  N021/CC  M03I/CCRATE1770 
KEYS  1  THRU  15RATE1775 
RATE1780 
RATE1785 
RAT El 790 

ATE  CONSTANT  CHANGE SR AT  El 795 
RATE1800 
E  0-  02-  ORATE1805 

RATE1810 
RATE181 5 
RATE1820 
RATE1825 
RATE1830 
RATE1835 
RATE1840 


Nj4  =  NjO+2  At  Fj'tO' N10' ^20’ 


N 


30 


-  2  At  Fj(tg  +  3  At,  N12.  Nt22,  Ng2 


NmO> 

Nm2> 


+  2At  +  2-  At*  N13'  N23*  N33  '  *  •  Nm3^ 

Nj5  =  NjO+r  At  Fj(tO*N10'N20'N30 
+  I  At  F/tO  +2  At'  Ni3*  N23’  N33 
+  G  At  Fj^  +  At’  N14’  N24’  N34  ’  •  ‘  Nm4^ 


NmO> 


Merson.(1957)  has  shown  that  the  error  in  is  -  ygg-  At5N^^  and  that 


the  error  in  Njg  is  -  At5N^  .  Therefore,  a  good  estimate  of  the  error  in 


Njg  which  are  the  accepted  values  of  Nj  at  the  end  of  the  increment'  is 


1 

5 


-N35 


) 


The  criterion  for  the  acceptance  of  a  solution  is  that  one-fifth  of  the  relative 
difference  between  and  must  be  less  than  e  for  every  Nj  .  That  ie 


NiL-i 


si 


<  c  . 


Should  this  criterion  fail  for  any  Nj  ,  the  program  cuts  the  increment  in  half,  re¬ 
initializes  itself,  and  computes  a  solution. over  a  smaller  increment.  It  uses  this 
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factor  of  two  cutback  for  the  first  three  failures.  If  the. solution  is  still  unable  to 

satisfy  the  criterion  after  these  three  tries,  the  increment  is  cut  by  a  factor  of  ten 

and  a  new  solution  is  computed.  The  program  then  tries  to  obtain  an  acceptable 

solution  three  times  using  decade  cutbacks.  Should  the  solution  still  be  unacceptable 

after  these  three  attempts,  all  the  differential  equations  are  returned  to  the  set, 

the  increment  is  cut  another  decade,  and  a  new  solution  is  computed.  Should  the 

solution  still  be  unacceptable,  decade  cutbacks  are  continued  until  an  acceptable 

-8 

solution  is  obtained  or  until  the  increment  is  reduced  below  10  .  If  no  solution 

is  acceptable  by  the  time  the  increment  is  reduced  to  10  ,  the  integration  is 

stopped,  the  JAKE  switch  is  set  to  two,  and  control  is  transferred  to  the  main 
program. 

This  program  sets  two  switches  that  are  used  externally  to  determine  con¬ 
ditions  under  which  the  solution  was  generated. 

1)  IFAIL  -INTEG  will  return  with  this  switch  on  zero  if  the  solution 
was  generated  over  the  first  increment  used.  If  the  subprogram 
had  to  reduce  the  increment,  this  switch  is  set  to  one.  This  in¬ 
formation  is  required  if  the  main  program  is  looking  for  solutions 
at  specific  times. 

2)  JAKE  -  this  switch  is  set  to  its  normal  setting  of  one  by  the  main 

program.  As  long  as  a  valid  solution  is  generated,  its  setting  re¬ 
mains  on  one.  If  the  integrator  is  unable  for  any  reason  to  develop 
a  solution  with  any  increment  greater  than  10  ,  this  switch  is  set 

to  two  and  control  is  transferred  to  the  main  program  where  the 
comment  THE  INTEGRATING  MESH  IS  VANISHING  IN  INT  AT  X.XX 
SEC  is  written. 

This  subprogram  calls  ALGA  for  a  solution  to  the  exponential  equations  after 
the  computation  of  each  of  the  five  sets  of  N.  .  In  this  way,  the  program  always 

J 

uses  a  consistent  set  of  N^.’s  every  time  a  derivative  computation  is  called  for. 

If  ALGA  returns  to  INTEG  with  the  JAM  switch  on  two  indicating  that  ALGA 
could  not  solve  the  exponential  set  of  equations,  INTEG  makes  one  of  two  decisions 
to  remedy  the  difficulty. 

1)  If  the  concentration  of  any  species  is  being  computed  from  its 

exponential  equation  over  the  current  increment  and  was  computed 
from  its  differential  over  the  proceeding  increment,  its  differential 
equation  is  returned  to  the  differential  set  and  its  exponential  equa¬ 
tion  is  removed  from  the  exponential  set.  The  system  is  reinitialized 
and  the  integration  is  started  again  over  the  current  (increment. 
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2)  If  condition  1_  does  not  prevail,  all  of  the  differential  equations 

are  returned  to  the  differential  set,  the  exponential  set  is  emptied, 
the  increment  is  reduced  by  a  factor  of  ten,  the  system  is  reinitialized, 
and  the  integration  is  performed  over  the  smaller  increment. 

A  COMMON  subscripted  variable  TREG  is  required  by  the  subroutine.  Its 
dimension  is  (6*NUMB+4)  where  NUMB- is  the  number  of  differential  equations  in 
the  full  set..  After  each  integration,  the  locations  of  TREG  contain  the  following 
values: 

TREG(2)  =  Independent  variable  t(see) 

TREG(3)  =  Integrating  increment 

TREG(4)  -  TREG(NUMB+3)  =  Dependent  variables  N-5  . 

The  increment  for  the  next  integration  is  automatically  set  to  twice  the  value  used 
for  the  integration  just  completed.  If  the  new  increment  is  too  large  it  will  be  cut 
back  by  the  program  during  the  next  integration. 

The  following  statements,  beginning  on  page  81,  are  agisting  of  thi’s-sub- 
routine. 

7.1.3  TIIE  ITERATION  SUBROUTINE  ALGA 

This  routine  solves  the  simultaneous  set  of  exponential  equations.  It  is  called 
by  subroutine  INTEG  except  when  the  set  of  differential  equations  is  empty  when 
it  is  called  by  the  main  program..  The  set  of  exponential  equations  (see  Eq.  3) 
is  solved  by  the  method  of  successive -substitutions  using  Nq  as  the  initial  guess 
and  computing  successive  guesses  from 

Vnh 

V i  =  — * —  J  =  °*- x‘  2« • ITER  • 

The  solution  is  said  to  converge  if 
N.  , 

(l-<5)  <  <  (1+5)  (45) 

j 

where  5  is  some  number  less  than  one.  Choice  of  the  value  of  6  is  determined 
by  the  amount  of  charge  imbalance  that  can  be  tolerated  in  the  solution.  Generally, 
the  problem  of  charge  imbalance  can  be  neglected  if  5  is  less  than  0.001. 

If  the  criterion  (Eq.4  5)  cannot  be  satisfied  within  ITER  iterations,  ALGA 
makes  one  of  two  decisions. 

1)  If  any  differential  equation  is  still  in  the  differential  set  the  JAM 
switch  is  set  to  two  and  control  i&returned  to  INTEG  (see  INTEG 
for  remedy  taken). 


M8FTC  INTEC  LIST  INTOOOOO 

SUBROUTINE  IMTEG  INT00005 

C  INTEGRATOR  USING  THE  XUTTA  MERSON  TECHNIQUE.  INTOOOIO 

COMMON  TREGI 1501 ,  KEY!  151 .FORM! 15 1 ,REMV( 15 1, CONI  168  > .LKEYI 1 5) .BEGININTOOOl 5 
1(151  INT00020 

COMMON  NUM8 , EUBAR .EL8AR, 0, D02 , 0N2, T ,PNE . PNO. P02 , PO. PN2, TOTAL .JACK. INT00025 
1  JAKE, JAM, I TER.L I  NT, 1 2NT.K2NT, J2NT.N2NT.FI RST.PROO, LAM, TIME* K83. TOT INT00030 
20.TUTN  INTO0H35 

DIMENSION  CI7I  INT00040 

OATA  C/0. 33333333, 0.16666666, 0.12 5, 0.375, 0.5, 1,5, 0.66666666/  INT0C045 

Nl=NUMB«-4  INfwOQSO 

N2*L  INT  .  INT00055 

N3-I2NT  --  INTOOO’-O 

N4=K2NT  INTOOG *5 

N5=J2NT  I  NTOOOto^ 

N6*N2NT  INT0007.5' 

K0UNT=0  INT00080 

00  5  J=1,NUMB  INT00085 

TREG(N2)=TREG( J*3)  INT00090 

5  N2=N2*l  I NT00095 

N2=LINT-  INTOOIOO 

TREGL1 MTREGI2I  INT00105 

10  DO  90  1=1,5  INT00110 

CALL  DAUX  INT0011 5 

00  50  J^l.NUMB  I NTC0120 

IF"IKF-Y(  J)-IJ  45,15,45  INT00125 

15  GO  TO  (20,25,30,35,401,1  INT00130 

20  TREG(N3J=TREG(Nl)*TREG(3l  INT00135 

TREG( J  *3 1 *TREG( N2 )*C ( 1 l*TREG( N3I  INT00140 

GO  TO  45  INT00145 

25  TREG(J*3»=TREG(N2l4C(21*TREG(N3»4C(2)*TREG(3J*TREG(Nl>  INT00150 

GO  TO  45  INT00155 

30  TREG(N4)=TREG(Nll*  TREGO)  INT00160 

TREG( J»3 ) *TREG(N2 )*C ( 3 )*TREG(N3 ) »C (4) *TREG( N4I  INT00165 

GO  TO  45  1NT00170 

35  TREG(N5I«TREG(N1  WREGO)  INT00175 

TREG(JO)«TREG(N2)*C(5)*TREG(N31-C(6)*TREG(N4)42.04TREGIN5)  INT00180 

TREG(N6)=TREGC J43)  INT00185 

GO  TO  45  INT00190 

40  TREG(  J43  l».TREG(N2  J4C1 2  I*TREG(  N3 1 4C(  71  ♦TREGI  N5I*C(2)*TREG(  3 )*TREG( NINT00195 
11)  INT00200 

45  N1 *Nl *1  INT00205 

N2*N2U  I NT00210 

N3=N3»1  INT00215 

N4«N4*l  INT00220 

N5=N5*1  INT00225 

N6=N6*1  INT00230 

50  CONTINUE  INT00235 

NI*NUM8«-4  INT00240 

N2=L INT  INT00245 

N3* I 2NT  INT00250 

N4=K2NT  INT00255 

N5=J2NT  INT00260 

N6=N2NT  INT00265 

00  55  K*1,NUM8  INT00270 

IF(KEY(K)-2)  55,60,55  INT00275 

55  CONTINUE  INT00280 

GO  TO  70  INT00285 

60  CALL  ALGA  INT00290 
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L-JAKE  INT00295 

GO  TO  <65,65.195) »L  INT00300 

65  L*JAN  '  INT00305 

GO  TO  {70,U0I,L  INT00310 

70  GO  TO  <75, 90, 80, 85, 90t. I  INT00315 

75  TREGI  2 1  »TREG<  1 1  »C  <  1I*TREG<  31  %INT00320 

GO  TO  90  INT00325 

80  TREGI 2 TREGI 1)»CI51*TREG(31  INT00330 

GO  TO  90  INT00335 

85  TREG(2)«TREG(l ) ♦TREGI 3 1  INT00340 

90  CONTINUE  INT00345 

00  105  J*l ,  NUMB  INT00350 

IF!  KEY( J 1-1 1  100,95,100  INT00355 

95  IFllABS<1.0_tTR£GIN6) /TREGI J+3 1 1 )/5.0 I  .CT.  EUBARt  GO  TO,  135  INT00360 

100  N6*N6*1  INT00365 

105  CONTINUE  INT00370 

N6»N2NT  1NT00375 

GO  TO  185  ! NT00380 

110  00  120  J*1 ,NUHB  INT003B5 

IFI KEY!  J 1-2 1  120,115,120  INT00390 

115  IFI LKE Yl J I — II  120,125,120  INT00395 

120  CONTINUE  INT00400 

GO  TO  165  INT00405 

125  KEY(J)«l  INT00410 

00  130  J«1 , NUMB  INT00415 

TREGIJ*-3)»TREGIN2I  INT00420 

130  N2*N2»1  INT00425 

GO  TO  155  INT00430 

135  KOUNT»KOUNT>1  INT00435 

IF ( KOUNT  .GT.  31  GO  TO  160  INT00440 

TREG(3l»TREG<3)/2.0  INT00445 

140  DO  145  J«t,NUMB  INT00450 

TREG<J43I-TREGIN2I  INT00455 

145  N2-N2M  INT00460 

GO  TO  <155,1501 .JACK  INT00465 

150  IF  I TREGI 31  .LT.  1.0E-81  GO  TO  190  INT00470 

155  TREGI2 I»TREG( 1 )  INT00475 

N2*L INT  INT00480 

N6-N2NT  I NT00485 

GO  TO  10  INT00490 

160  IF ( KOUNT  .CT.  61  GO  TO  180  INT00495 

165  00  175  J«l,NUNB  INT0C500 

IFIKEYUI-21  175,170,175  INT00505 

170  KEYUlxl  INT00510 

175  CONTINUE  INT00515 

180  TREG(3)*TREG(3l/10.0  INT00520 

GO  TO  140  INT00525 

185  TREG(3>»2.04TREGI3I  INT00530 

GO  TO  195  INT00535 

190  JAKE-2  INT00540 

195  RETURN  INT00545 

ENO  INT00550 


83 


2)  If  the  differential  equation  set  is  empty  the  integrating  mesh  is 
halved,  the  initial  conditions  are-restored,  and  the  iteration 
procedure  is  repeated. 

Should' ALGA  be  unable  to  compute  a  solution  to  the  full  set  of  exponential  equations 

■*6 

before  the  increment  is  reduced  to  the  starting  increment  (usually  10-u  secs),  the 
JAKE  switch  is  set  to  three  and  control  is  returned  to  the  main  program  where  the 
comment  THE  INTEGRATING  MESH  IS  VANISHING  IN  ALGA  AT  X.  XX  SEC  is 
written. 

The-following  statements,  beginning  on  page  84,  are  a  listing  of  subroutine 
ALGA. 

7.1.4  SUBROUTINE  TO  COMPUTE  THE  FORM  AND  REMV  TERMS,-  SLOP 

This  subroutine  computes  the  ^  ^  F.  and-  ^~^R.  terms  required  in  computing 
the  derivatives.  This  has  always  been  a  tedious  program  to  write  because  it  is 
here  that  the  sum  of  all  the  rates  at  which  the  species  are  formed  and  removed  is 
computed.  For  a  large  number  of  reactions  and  species  the  effort  to  hand  code 
this  program  is  tremendous. 

A  program  was  written  by  David  McIntyre  (1965)  for  an  IBM-6000  computer 
vhich,  upon  being  fed  in  coded  form  the  reactions  and  the  species,  writes 
a  program  for  computing  the  total  and  the  partial  derivatives  of  each  species. 

This  code  was  rewritten  by  the-author  for  use  on  an  IBM-7044-7094  computer  to 
compute  only  the  formation  and  the  removal  equations  required  for  each  species. 
This  program  in  its  latest  version  is  described  in  Appendix  B. 

Since  the  }f{  and  /  jR^.  terms-are  r.equired-Uy  both  IN-TEG' and  ALGA, 
SLOP  is  written  in  such  a  way  that  it  can  be  called  by  either  of  these  subroutines, 

Iii  order  to  conserve  compuier  time,  SLOP  is  so  written  that  only  the  FORM(  J)  and 
the  REMV(J)  terms  for  the  species  that  are. not  in  equilibrium  are  computed  when 
SLOP  is  called  by  INTEG(KIND.=  1)  and  only, the  FORM(J)  and:the  REMV(J)  terms 
for  the  species  that  are  in  equilibrium  are  computed  when  SLOP  is  called  by  ALGA 
(KIND=2).  This  eliminates/the  waste  of  time  in  computing  derivatives  that  will 
not  be  used.  In  addition,  SLOP  calls  PRODUC  for  the  rate  of  production  of  ioniza¬ 
tion  by  the  external  source  only  when  SLOP  is  called  by  INTEG. 

Subroutine  SLOP  is  now  written  by  the  computer.  The  following  statements, 
beginning  on  page  85,  are  written  for  15  species  and  168  reactions. 
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118FTC  ALGA  LIST 

SUBROUTINE  ALGA 

COMMON  TREGI  150)  ,KEY(15)  .FORM!  L5),REHVI 
1(15) 

COMMON  NUMB, EUBAR .ELBAR, 0, 002, DN2.T.PNE 
1  JAKE, JAM, ITER, LINT, (2NT.K2 NT, J2NT.N2NT, 
20.T0TN 

DIMENSION  Y( 17  I  ,RA13  17  J ,  ZINCHI  17) 

00  5  J-l.NUMB 
Y(J)»TREG! J*3) 

ZINCHI JI-TREGI J*3) 

RAT! J)*0.0 
5  CONTINUE 
10  MOUNT *0 
15  KINO-2 

CALL  SLOP! KI NO ) 

FORM! 101-FORM! 10)-PNO 
FORM! 15 1 -FORM! 15J-P0 
DO  30  J-l.NUMB 
IFiKEYI J )-2)  30,20,30 
20  YEJK-FORM(J) /REMV! J) 

YIPES«A8S(REMV( J)*TREG!3) ) 

IF! YIPES  .GT.  30.0)  GO  TO  25 
Y! J)«!ZINCH( J)-YEJK)*EXP!-YIPES)*YEJK 
GO  TO  30 
25  YIJJ-YEJK 
30  CONTINUE 
35  DO  45  J* 1 .NUMB 

IF ( KEY ( J I— 2 )  45,40,45 
40  RAT(J)«< TREG(J*3)/YIJ) ) 

45  CONTINUE 

DO  60  J- l, NUMB 
IF ( KEY! J )— 2)  60,50,60 
50  IF (RAT! J )— ! 1 .O+ELBAR ) )  55,65,65 
55  1F!RATIJ)— ( 1 .O-ELBAR ) )  65,60,60 
60  CONTINUE 
GO.  TO  110 
65  •'0  75  J-l'.NUMB 

1HXEYIJJ-2)  75,70,75 
70  TREGI J*3)«( TREGI J*3)*Y( J) ) /2.0 
75  CONTINUE 

MOUNT -MOUNT* 1 
IF(KOUNT-ITER)  15,80,80 
80  00  85  J* l , NUMB 

IF'KEY(J)-l)  85,105,85 
85  CONTINUE 

TREG(3)«TREG(3)/2.0 
TREGI 2) -TREGI2 l-TREG! 3 ) 

IF ( F IRST-TREG! 3) )  95,90,90 
90  JAKE>3 
GO  TO  125 
95  L-UINT 

DO  100  J-t ,NUMB 
TREGI J*3»-rREG(L) 

L-L*l 

100  CONTINUE 
GO  TO  10 
105  JAM-2 

GO  TO  125 

110  DO  120  J -1 , NUMB 

IF1KEYIJI-2)  120,115,120 
115  TREGI J*3)*( TREGI J*3»*YIJ))/2.0 
120  CONTINUE 
JAM*  1 

125  RETURN 
END 


ALGAOOOO 

ALGA0005 

15) ,CON( 168I.LKEY! 15), BEGINALGA0010 

ALGA0015 

,  PNO, P02, P0.PN2, TOTAL, JACK, ALGA0020 

FIRST, PROD, L AM, T 1ME.KB3, T0TALGA0025 

ALGA0030 

ALGAQ035 

ALGA0040 

ALGA0045 

ALGA0050 

ALGA0055 

ALGA0060 

ALGA0065 

ALGA0070 

ALGA0OT3 

ALGA0080 

ALGA0085 

ALGA0090 

ALGA0095 

ALGA0100 

ALGA0105 

ALGA0110 

ALGA0115 

ALGA0120 

ALGA0125 

ALGA0130 

ALGA0135 

ALGA0140 

ALGA0145 

ALGA0150 

ALGA0155 

ALGA0160 

ALGA0165 

ALGA0170 

ALGA0175 

ALGA0180 

ALGA0185 

ALGA0190 

ALGA0195 

ALGA0200 

ACGAP205 

ALGA0210 

ALGA021 5 

ALGA0220 

ALGA0225 

ALGA0230 

ALGA0235 

ALGA0240 

ALGA0245 

ALGA0250 

ALGA0255 

ALGA0260 

ALGA0265 

ALGA0270 

ALGA0275 

ALGA0280 

ALGA/5285 

ALGA0290 

ALGA0295 

ALGA030P 

ALGA0305 

ALGA0310 

ALGA0315 

ALGA0320 

ALGA0325 
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HBFTC  SLOP  Lf ST  SLGPOOOO 

SUBROUTINE  SLOP! KIND)  SL0P0005 

COMMON  TREG(  ISO)  , KEY!  15)  ,FORHI  15)  , REMVI  15)  ,CONt  168  I'.LKEYI  15)  i.lECINSLOPOOlO 
1115)  SLOPOO.l  5 

COMMON  NUMB, EUBAR.ELBAR.O, 002, DN2.T.PNE, PND, PQ2,PO,PN2. TOTAL, JACK, SL0P9C20 
1 JAKE, JAM, ITER, LINT, I2NT,K2NT,J2NT,N2NT, FIRST, PROD, LAM, TIME, KB5. T0TSL0P0025 
20, TOTN  SLQP0030 

DIMENSION  Yl 150) ,C!168)  SLOP0035 

EQUIVALENCE  (YU)  .TREGIAJ)  ,  (C.CON)  SLOPOOAO 

SLOpnoAS 

SL0P0050 
SLUP0055 
SL0P0C60 

GO  TO  5  SLOP0065 

SLUP0070 

.AND.  KEY (  1)  .NE.  1)  .OR.  (KIND  .EQ.  2  .ANO.  KEY(SL0P00V5 
TO  10  SL0P0080 

REMV (  1)  *< Y(9)*(*C(32) *C(36)*Y(18 )*C(37)*YI 18) 4C(Al) I »Y(15)f I ♦SL0PD085 

1C( 16)*C(22I*Y( l6)*C(23)*Y(i7)*C(26)*Y(16))»Y(7)*(*CI3O)»C(3A)*Y(18SLOPO09O 
l')*C  (  391 ) »Y( 8) *  ( »C(31 ) *-C(  351*Y1 18) »C (AO) ) *Y(  I2).*l  *C(  18)  »C(  27)*Y(  16) SL0P0095 
1>C (28)*Y(17))*Y(13)*(+C(19)tC(20l*C(2l) )*Y(6)*I >C(33)*Y( 18)*C( 38)TSL0PQ100 
l*C(17)*Y(16)»C(-2AS*Y(16)*V(16)*C(25)*Y(  16)  *Y(  17  )  »C  ( 29  )*Y(  10)*Y(  18)SL0P0105 
L);  SL0P01 10 


CALL  BALAN 
Y(16)=D02 
Y(17)*DN2 
Y(  18)=0 
IFIKIND  .EQ. 
CALL  PROOUC 
5  I F ( ( K f NO  .EQ.  1 
1  1 )  .NE.  2)1  GO 


2) 


FORM(  1)  »(Y(2)*(*C(2)4C(8)*Y(  15  ) »C 1 9 )* Y ( 16 )  *C1  10)*Y(  1  U*C(  U)*SL0P0U5 

1Y(17)+C(12)*Y(10)+C(13)*Y(13)I»Y(3)>( Y(  15)  *(  *C(7  >*C( 15 ) ) ♦C< 1 ) *CI 6) SL0P012C 
1  *Y(  17)*C(1A)*Y(11)*C(5M>YU6I)*VIA)*<*C(A)*C(167)*Y(  15) )  »Y( 5) •(  »C( SL0P0125 
13)  *C(  168  l*Y(  15 )  ).1*PNE  SL0P0130 

10  JFUKIND  .EQ.  1  .AND.  KEY!  2)  .NE.  1)  .OR.  (KINO  .EQ.  2  .AND.  KEVISL0P0135 
1  21  .NE.  2))  GO  10  15  SLOPOIAO 

REMVI  2)  « ( Y(  6)  *(  4C(A2)  »C(  58)  *Y(.li  )*C(59)*Y(  16) »C( 60)*Y( 17 ) *C( 6SL0P0145 

11)*Y(15)  )*Y(7)»(»C(A6)*C(63)*Y(18))*Y(8)*(»C«50)*C(65).*Y(  18)  )  »Y  (91SL0P0150 
1*1*C(5A)*C(67)*Y(  18) ) *  Y(  10)  •(♦<:(  12  )+CU  14) *V( 1 8 ) ) *Y< 13) » ( *C( 13 > *C ( SLOPO 155 
193))»C(2I»C(8)*Y(15) fC (9 )* Y(16 1 *C ( 10) *Y ( 11 ) *C( 11 )*Y( IT ) »C ( 92 ) • Y { 12SL0P0160 
1)+C(106)*Y(16)*C(12A|*Y(16)*Y(16»)  SLDP0165, 

FORM (  2)  *( Y(1)*(Y(151*(*C(16)*C(22)*Y!16)*C(23)*Y( 17) MCI  20) *YSL0P0170 

1(13)UC(9A)*Y(31*Y(15)1  SL0P0175 

15  I F I (KINO  .EQ.  1  .ANO.  KEY(  3)  .NE.  1)  .OR.  (KIND  .EQ.  2  .AND.  KEYISL0P0180 
1  3)  .NE.  2))  GO  TO'  20  SL0P0185 

REMVI  3)  »(Y(8)*UC<51l*C(66)*Y<18)»C(69UC(70UC(7l)*CI72))*Y(SLQP0190 

15)*(*C(55)AC(68)*Y(,l8)*CI75)AC(.76)*C(77))»Y(15)*(*C(7.)*C(15)+C(9A  I.SL0P0195 
1  )*Y(6)*(*C(A3) ♦C(62)*V(18) )*Y(7)*(*C(A7)*C(6A)*Y( 18) )»Y( U)*(»C( IASLOP0200 
l  MCI ll5)*Y(18IMCtiUC(5)*V(16)>CC6)*Y{17MC(95l*Y(12MCI96)*V( 13 )SLOP0205 
1AC(125)*Y(16)*Y(17J)  SL0P0210 

FORM<  3)  ■  (  Y<  1  )  *£  ♦C’(  17)*Y(16MC(2i  )*Y(  13  )  *C(  2A)  *Y(  16)*Y(16MC(  2SL0P0215 

15)*Y(16)*Y(17MC(26)*Y(161*Y(15) ))  SL0P0220 

.20  IF(  (KIND  .EQ.  1  .ANO.  KEY(  A)  .NE.  1)  .OR.  (KIND  .EQ.  2  .ANO.  KEYISL0P0225 
1  A)  .NE.  2)1  GO  TO.  25  SL0P0230 

REMV(  A)  *(Y{9l'*(*C(57)*C(Sl)»C(82))«-V(8)*(*Ci53)*Cr7A|  MCI  4MCSL0P0235 
1(45)*Y(6MC(49I*Y<7MC(98)»Y(12MCU26I*Y(17MC(167)*Y( 15))  SL0P02A0 

FORM)'  A)  *(Y(  13?*(TC()  9)PY(  l)  *C(  93 )  *Y(  2)  *C<96  )*Y(  3)  +C(  97)  *Y  (  5) )  SL0P02A5 
UY(2M(*C(106)*Y(16MC(124I*Y(16)»Y(16)))  SL0P0250 

25  IFl  (KINO  .EQ.  1  .AND.  KEY(  5)  .NE,  1)  .OR.  (KINO  .EQ.  2  .AND..  KEY(SL0P0255 
1  5)  .NE.  21)  GO  TO  30  SL0P0260 

REMVI  5)  »(Y(9)*(*C(56I  «-Cf  78MC(  79MC( 80)  MV  (8I*(  *C(  52)  »C(  73)  MSL0P0265 

1C(  3)  ♦C(44MY(6MC  (48MY(  71  *C(97I  •¥(  13  MC(  168)*V(  15 )  1  SL0P0270 

FORM!  5)  *(Y(12)*(V(1)*(*C(  18MC(27)  *V(  16)  *C(  28  )*Y(  17)  I  ♦C(.92)*YSLOP0275 

1(2MC(95)*Y(3MC(98)*Y(4)MY(3)*(4C(115>*Y(U)*V(18MC(125)*Y(  16MSL0P0280 
l Y( 17) ) *C ( UA)PY( 2) *Y( 10) PY( 181 *C( 126 ) *Y( A)*Y( 17) )  SL0P0285 

30  I F ( ( K 1 NO  .£9.  1  .ANO.  KEY!  6)  .NE.  1)  .OR.  (KFND  ,EQ.  2  .ANO.  KEYISL0P0290 


1  61  .NE.  21)  GO  TO  35  SLOP0295 

REMV(  6)  *1  Y(2>*(4C[42)4C(59)*YUl)4C(5?)*Yt 16)4C(60)*Y(17)4C(6SL0P0300 

lil*Y(  151  > «-y «  101*  KOI  84)40(102)40(110)  *Y(18K4C(U7)  >4Y  1  1)*1«C(  33)*YS10P0305 
1«  18)40(38)  )  4Y(3)*(4C(43)  40(62)  *Y(  IS))  4Y1  1 1 )  *  I  *C  (  100) 40 (  10 8 )*Y( 1 8 ) ) SL0P031O 
U4Y1 15)  *1  4C(  99)  40  1.1071*  VI  18)  )  40  (83)*Y(  16)401 85) *Y(  12)4C(86)*Y1 14)4CSIOP0315 
1(IQI)*Y(17)4C(109)*Y(17)*Y(18)4C(116)*Y(17)4C144)*Y(5)4C145)*Y14) ISL0P0320 
FORM  6)  *t4C(ll8)*Y(7)*Y(ll)4C1881*Y(8)*Y(15))  4P0  SLOP0325 

35  IF) I  KINO  .EQ.  1  .AND.  KEY!  7)  .NE.  1)  .OR.  (KINO  .EQ.  2  .AND.  KEY! SL0P0330 

1  7)  .NE.  2)1  GO  TO  40  SL0P0335 

REMV(  7)  *1  Y(  l  J*(4C 130)  ♦C134)*Y(18  3  ♦Cfl  39))4Y(2)*l4C14ii)*C(  63 )*YSL0P0340 

1118))*Yr3|*!4C147) 4C 164) *Y 118)1 4Y 111) *14C 1118) 4C 11 20 )|4Y( 15) *(>01 ISL0P0345 
103)401  1U)*V118)  )  «-Cl  87)»Y<  10)401  119)*Yt  17 )  »C  1  121)*Y1  12)  4C(  48  J  *Y(  5  ),SL0P0350 
1+C 1 49) *Y (4) )  SL0P0355 

FORM  7)  «( Y<6)*(Y(15)*<4C(99|4C(107)*Y(18))4C(117I*Y1 10) ♦Cl  83 ) SL0P0360 

1*Y( 16J 1^C189)*Y(8)*Y1 16) l♦P02  SLOP0365 

40  IF! (KINO  .EQ.  1  .AND.  KEY!  8)  .NE.  1)  .OR.  (KIND  .EQ.  2  .AND.  KEY1SL0P0370 

1  8)  .NE.  2))  GO  TO  45  SL0P0375 

:RENV(  8)  «<  Y(  3  )*(  40(51)  40  (66).*Y(  18  )  40(69  )  401  70  )  40  1  7 1)  40(72)  )4Y(SI.0P0380 

II)  ♦< 40(31)40 135) *V( 18) 4C(40))tV12)*l4Cl 50) 4C(65)*Yt 18) )4Yl4)*(  401  5SU3P0385 

13)40(74) )4Y( 5) *(40(52)40 (73) )*Y(  15 1  *(  401 88)  4d  122)  >  40  <  89 »  *Y( 16)4C(SL0P0390 
1 90 )*Y(11) *C 191J4Y1 10)401 104) *Y 117) 401 123)«Y(l6t)  SLOP0395 

FORM!  8)  »4PN2  SLOP0400 

45  £ F 1  (KINO  .EQ.  1  .ANO.  KEY (  9)  .NE.  1)  .OR.  (KINO  .EQ.  2  .AND.  KEY  1 SL0PC-405 
l  91  ;NE.  2))  GO  TO  50  SL0P0410 

RFMVI  9)  »( Y( 3 )*( 4C (55) 4C(68)*Y( 18)401 75) 40(76) 40(77) ) 4Y1 1 )*( 4CSL0P0415 

1 (32) 40 (36)«Y( 18) 40(37) *Y( 18) 40141 ))4V(5)»( 401 56) 40178)401 79) 4C(B0)SLOP0420 
l)4Y(4)*(4C(57|4C(8l)4C(82) )4Y(2)*(4C(54)4C(67)*Y118) )>YI 15)*( 401 10SL0P0425 
l5>4C(ll2)*Y<18))4C(li3)*Y(ll)*Y(ia>)  SLOP0430 

FORM(  9)  *( V(6)*(Ylll)*(4C(100)4C(  108  )  *Y(  18 )  )  <  Cl  1 16)*Y  1  17 1 401  84SL0P0435 

1  )  tYl  10 )) >Y(  7)*  (  401 1 19)*Y(  17)401 120  )*Y(  11)401  121  )*Y(  12  >401  87)*Y(  101SLOP.0440 
1)4Y(8)*(4C( 122 )*Y( 15) 4C.U23)*Y1 16)40(91 )*Yt 10) ))4PN0  SL0P0445 

50  IFKKINO  .EQ.  1  .AND.  KEY(IO)  .NE.  1)  .OR.  (KINO  .EQ.  2  .ANO.  KEY1SLOP0450 

110)  .NE.  2))  GO  TO  55  SL0P0455 

REMV110)  >( Y(6)*(4C(84) 40(102 ) 401 110) *Y( 18) 40(117) )4Y1 15)*(>C1 1SL0?0460 

131 ) 401 143) ♦ Y1 16) 401 144 )*Y( 17)401 150)) >Y( l 1 I *( *01 134) 401 147 )*Y( 18) 4SLOF0465 
1C( 156) ) 4Y1 2 )*( 40(12)40(1 14) *V( 181 )4Y( 10 )*( 401 148)*Y( 16)401 148)*V( 1SL0P0470 

16)  )4C(20)*Y(l)*Y(  18)  40(160  )*Y(  13  )  *01 1 62  )  +0(87  l*Y(  7  ):*C(91 )  *Y(  8 ) )  SLOP0475 

FORM  10)  *(Y(9)*1  YU)  *(40(36)  *Y(  13)40(41)  >  4Y  (  3)  *(  401 55 )  4C(  68)*YSL0P0480 

1(18) )4Y( 5)* (40(79) 401 56) KOI  54 ) *Y(2  KOI  57) *Y( 4) ) +Y1 11  )*(  Y< 12»*(4C(SL0P0485 
1158)4C(158))4Y(15)«14C(1Z9)4C(141)*Y( 18) 1 4C( 101 *Y1 2) 401 155l*Y( 16)4SLOP0490 
1 0(118) *Y (7)) 4Y(15)*(Y( 14 )*( 40 (152)401 152)) 40(1 49 )*Y( 17) 40 1 151 )*Y( 1SL0P0495 
12.) 40 ( 168 )*Y( 5) )4Y(81*(Y(3)*(4C(69)4C(69))4C1731*Y(5)4C(123)*Y(  16))SL0P0500 
14C(163)*Y( 12)401 M9) *Y(7 )*Y( 17)4C( 126 )*Y(4)*Yil7)4C( 165)*Y( 14) )  5LOP0505 

55  IFKKINO  .EQ.  1-  .AND.  KEY(ll)  .NE.  1)  .OR.  (KINO  .EQ.  2  .AND.  KEY1SLOP0510 

III)  .NE.  21)  GO  TO  6P  SL0P0515 

REMVl  11)  »(Y(  11)*(4C(  132)4C(145)*Y(18)4C(  132 )  40  ( 145) *Y  1 18) )  4.Y1  6SC0P0520 

1  )*(  401 100)  4CU08)*Y(1 8)40(58)  *Y(  21  )4Y().0)*(  401 134)401  147)*YU8)4C(SL0P0525 
1 156)  )4Y(  12)  *1 401.157)  40  ( 158 ) *01 159) )  4Y  (3)*(  401 14),4C(  115)*Y  1 18 ) )  4Y1 7SL0P0530 
l  )*(  ♦0(118140(12:.)  )4Y(  15)  *1 40(129)  40(141  )*Y1 18) ), 401 133)*Y(  16)  401 146SL0P0535 
1 )*Y( 16)*Y( 18)+C( 155) *Y( 16)4C110)*Y(2) 4CI90)*Y(8)4C( U3)*Y( 9)*Y( 18ISL0P0540 
l)  SLOP0545 

FORM! 11)  »( Y(9)*(Y(1)*(4C(32)4C(37)*YU8) )4Y(3)*(4C(76)4C(77I)4SLOP0550 

1Y(5)*(4C(78) 40(79) J4C(81)*Y(4) )4Y(8 »♦ (Y( 3) *1 401 72) *C  1,711 40(72 ) ) ♦Y1SL0P0555 
ID* (401 31)40 (31)  )4C(‘122)*Y(15))4Y(6)»14C(58)*Y12)*Y(  11)401  U6)*Y(  1SL0P0560 

17)  40(1 17  )*Y1 10)  )4Y(10)*(  401 162)401 150  f**(  15)  )40(  165)  *YU4)  401  149).*SL0P0565 

1 Y( 15 )*Y( 171)  SL0PG570 

60  IFKKINO  .EQ.  1  .ANO.  KEY! 12)  .NE.  1)  .OR.  (KINO  .EQ.  2  .ANO.  KEY1SLOP0575 

112)  .NE.  2 lit  GO  TO  65  SLOP0580 

REHV1 12)  *(  Y(  1)*(4C(1B)40(27)*YU6)4CI281*Y(17))4Y(  11)  *1  4CM57)SL0P0585 


ItCI  158)*C(159)  »*C(163)*C(85)*Y(6)«-C(92)  *Y{2 )  +C I  95  )  *V(  3 J+C  ( 98 )  *Y<4  » SL0P0590 
l*C(12l)*Y(7)*C(15l)*Y(15))  SL0P0595 

FORM(  12)  *( YilO)*(Y(lS)*(»C{13iMC  U43)*Y(16)*C(144I*Y(  17))*Y(  1SL0P0600 

10)*(*C(148)*Y(16)*C(148)*YI16I)*C(12)*Y(2)*C(160)*Y(  13))  *Y  (  5)*(  *C(  SLOP0605 
13)»C(44)*Y(6)*C(48)*Y(7)*C(56)*YI9)*CI97)*Y( 13) *Cl  52) *Y( 8 )  )+Y( 3)*( SL0P0610 
l*C(14)*Y(ll  >*C(71)*Y(8)«-C(75)*Y(9I*C(  1251*YI  16)*Y(  17 )  I  *Y  (  9  I*  t  »C(  67SL0P0615 
1 )*Y ( 2 1 *Y( 18)  *C  (  82  l*Y  (4)1  *-Y 4111  ♦  I  *C  ( 133)  *Y(  16  )  *C(  146)  *Y(  16  )  *Yll  8)  HSLOP0620 
65  l  F  ( (  K I ND  .EQ.  1  .AND.  KEY(13I  .NE.  1)  .OR.  (KIND  .EU.  2  .AND.  KEY(Slf0P0625 

113)  .NE.  21)  GO  TO  70  SL0P0630 

REMV( 13)  *(Y(1)*(+C(19)«-C(20)»C(21)>*Y(2)*(+C(13>+C(93)  )»C( 166)SL0P0635 

1»C(96)*Y(3)»C<97)*Y<5)*CU54)*Y(  15  )  *C ( 160) *Y( 10) )  5L0P0640 

FORM (13)  *(  Y{4)*t*C(4)*C(45)*Y(6)*C{49)*Y(7)*C(57)*Y(9)*C(98)*YSL0P0645 

l(12)*C(53)*Y(8))*Y(l5)*(*C(15)*Y(3)*C(128)*Y(l6i*Cll38)*Y(  16)*Y(  16SL0P0650 
l)+C(l39)*Y(l65*Y(l7)*C(140)*Y(l6)*Y(15))*Y(2)*(*Ct9)*Y(l6)*C(  63) * YSL0P0655 
1(7)*Y(18))*Y(3)*(*C(62)*Y( 6)  *Y ( 1 8 ) +C( 76) *Y( 9 ) ) *C( 80 )* Y( 5 ) * Yf  ) +C( ISL0P0660 
121 )*Y<  7)*Y( 12) i  SL0P0665 

70  I F (  (KINO  .EQ..  1  .AND.  KEY!  14)  .NE.  1)  .OR.  (KIND  .EQ.  2  .AND.  KEY(SL0P0670 

114)  .NE...2))  GO  TO  75  “  SL0P0675 

REMVI14)  =(YI15)*(+C(152)*C<i53))»C<164)*C(165)*C<86)*Y(6))  SL0P0680 

FORM( 14)  =< Y(8)*(*C(65)*Y(2)*Y<1&) *C(70 )*Y( 3) +C ( 73 ) *Y( 5UC( 74I*SL0P0685 

IY(4))*Y( 11>*(Y(10)*(*C(134)»C( 147) *Y( 18)>*C(  159 ) *Y ( 12 ) ) *Y ( 15  I  * ( *C ( SL0P0690 
U30)*Y(17)*C(142I*Y(17)*Y(18)  l*C(U  )*Y(2)*Y(17) ):  SL0P0695 

75  I F ( (KIND  .EQ.  1  .AND.  KEY( 15)  .NE.  1)  .OR.  (KIND  .EQ.  2  .AND.  KEYISL0P07O0 

115)  .NE.  21)  GO  TO  80  SLOP0705 

REMV ( 15 )  »( Y(15)*(Y(15)*(*C(136)*C(136)»C(136))*C( 127) *C( 135)*YSL0P0?10 

1(16)*C(137)*Y(17)*C(140)*Y(16)*C(127)  ♦C(135)»Y(  16)  ♦Cl  137)*  V(  17  )  *C  ( SL0P0715 
U40)*V(16)  )*Y(1)*I*CI16)*C(22)*Y(16)*C(23.)*Y(17)*C(26)*Y(  16)  )  *Y{  10SLOP0720 
1I*(*C(  13l)*C(143)*Y(16)*C(144)*Y(17)*C(150))*-Y(3)*(*C(7)*C(l5)*C(  9SL0P0725 
141 )*Y(6)M*C(99)*C(107)*Y(18)»C(61)*Y(2))*Y(7)*(*C(103)*C( lll)*Y( ISL0P0730 
18))*Y(8)*(*C(88)*C(122))*Y|9)*(*C(105)*C{112)*Y(18))*Y(11)*(+C( 129SL0P0735 
l»*C(l41)*Y(t8)  )*Y(l4)*(*C(lj52l  *0(153)  )*C< 128 ) *Y( 16)*C( 130 »*Y(  17 1 »CSL0P0740 
1  ( 138  l*Y('16 )*Y ( 16 )  *C(  1 39) *Y(  16)*Y(  17 ) *C(  142) *Y(  17.)*Y(  18)*C(  149)*Y(  1SL0P0745 
17)*C(151)*Y(12).*C(154)*Y(13)*C(8)*Y<2 »*C ( 167 )*Y (4)*C( 168)*Y(5))  SL0P0750 

FORM! 15)  =(Y(6)*(Y(2)*(+C(42) *C(42 )*C(6l ) *Y( 15))*Y(l)*(*C(  33) *YSL0P0755 

l(18)*C(38)>*C(83)*Y(16)*C(84)*Y(10)*C(85)*Y(12)*Cf86)*Y(  1 4 )*C ( 43 > *SLUP0760 
1Y(3)*C(44)*Y(5)*C(45)*/Y{4)  l*Y(  l ) *( Y (7 )*( *C(  30 ) *C ( 30) ) *Y( 9 ) *( *C( 32 )SL0P0765 
1*C(37)*Y(\8))»C(21)*Y113)»CI26)*Y(16}*Y(15) ) *Y( 2 »•( *C( 2) *C(46) *Y( 7SL0P0770 
l)*C(50>*Y(8)*C(54)*Y(9)*CI93)*Y{ 13 ) *C (92 >*Y( 12 » ) *Y( 3) *( Y I 8)*( *C( 70SL0P0775 
1)*C(72))*Y(9)*(+C(75) *C( 77))*C(?)*Y(l5))*Y(ll)*(*C(120)*Y(7)*Ct 155SL0P07D0 
i)*Y(  16)*C(156J*Y(10)*C(159)*Y(12))*Y(15)*(Y(15)*(*C(  136  )*  Y(  15)*CUSL£>P0785 
140 )*Y(  16) )  )+C(  161  )*Y(16)*C(166)*Y(13I*C( 16l)*Y( 16)*C(  162)*Y(  10 ) ♦C(~SC0P0790 
1163 I *Y( 12)*C(164)*Y(14))  SL0P0795 

80-RETURN  SL0P0800 


EDO: 


S1.0P0305 


7. 1.  5  SUBROUTINE  TO  COMPUTE  TIIE  DERIVATIVES,  DAUX 
This  subroutine  is  called  by  INTEG  and  computes  the  derivatives 


This  is  a  relatively  short  subroutine  since  the  bulk  of  the  c  omputations  are  performed 
in  SLOP  which  computes  and  ^^R.  .  If  any  species  is  in  equilibrium  this 

subroutine  sets  its  derivative  to  zero.  The  following  statements,  beginning  on  page  88, 
are  a  listing  for  this  subroutine. 
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IBFTC  OAUX  LIST  DAUXOOOO 

SUBROUTINE  OAUX  0AUX0005 

COMMON  TREGI 1501  ,KEYI15I ,FUPMC 151 , REN VI 151 .CONt 16B),LKEYl 15» .BEGINOAUXOOIO 
1(15)  0AUX0015 

COMMON  NUMB. EUBAR.ELBAR.D, 002, 0N2  ,T  ,PNE,  PNO,  P02,  P0.PN2,  TOTAL, JACK, 0AUX0020 
1 JAKE , JAM, I TER»L INT, I 2NT, K2NT, J2NT ,N2N T»F IRST , PROD, LAM, T IHE.KB3, T0T0AUX0Q25 


20.T0TN 

DAUX0030 

KIND-1 

DAUX0035 

CALL  SLOP! KIND) 

DAUX0040 

5 

L-NUMB*4 

DAVX0045 

00  2"  J  *  1 , NUMB 

DAliXOOSO 

IFIKEYIJI  ,NE.  1)  GO  TO  10 

DAUX0055 

TREGI  L )=F0RM1 J )- IREMV <  J)  *TREGI  JO  ) ) 

DAUX0060 

GO  TO  15 

0AUX0065 

10 

TREGILI-0.0 

DAUX0070 

15 

L-L+l 

DAUX0075 

20 

CONTINUE 

DAUX0080 

1FIKEYI 10)  .NE.  1)  GO  TO  25 

DAUX0085 

TREGI NUMB*l 3) -TREGI NUMB* 13 )-PN0 

0AUX0090 

25 

I FIKEYI 15)  .NE.  1)  GO  TO  30 

DAUX0095 

TR  EG 1  NUMB* 1 8 ) *  TREG I  NUMB* 1 8 ) -P0 

DAUX0100 

30 

RETURN 

0AUX0105 

END 

DAUX01 10 

7.  1.  6  SUBROUTINE  TO  SET  INITIAL  CONDITIONS,  INITAL 

This  subroutine  is  incorporated  into  the  package  for  the  purpose  of  establish¬ 
ing  the  initial  conditions  on  the  solution  of  the  differential  equations.  In  most 
applications,  this  is  a  very  simple  subroutine.  It  simply  sets  the  starting  time  to 
zero,  the  initial  increment  to  10_G,  and  transfers  the  initial  concentrations  read 
into  the  BEGIN  region  to  the  proper  TREG  locations.  It  also  computes  the  total 
numbers  of  oxygen  (TOTO)  and  nitrogen(TOTN)  atoms  initially  put  into  the  system. 

Since  the  situation  could  arise  where  it  would  be  necessary  to  use  a  com¬ 
plicated  function  to  compute  the  initial  concentrations,  as  in  the  case  of  nuclear 
weapons  effects,  a  separate  subprogram  is  used  to  permit  flexibility  in  setting 
up  the  initial  conditions  for  the  solutions  without  disrupting  the  entire  code.  The 
following  locations  of  TREG  must  be  set  by  this  subroutine. 

TREG(2)  =  0. 0,  the  starting  time  in  seconds  . 

TREG(3)  =  10  G,  the  initial  increment  in  seconds. 

TREG(4)  to  TREG(NUMB+3)  =  the  initial  concentrations  of  the 

dependent  variables  NQ£. 

The  initial  increment  is  always  taken  as  10-G  secs.  There  could  be  cases 

where  a  species  has  decayed  or  build  up  from  its  initial  value  to  its  equilibrium 
**6 

value  in  less  than  >0  °  secs.  In  the  event  that-this  should  happen  the  initial  inte¬ 
grating  increment  must  be  some  value  smaller  than  the  equilibrium  time.  If  a 

_  g 

mesh  of  10  secs  is  too  large,  the  criterion  set  on  the  integration  cannot  be 
satisfied  and  the  program  will  automatically  cut  it  back  until  it  arriyes  ai  an  in- 
crement  that  can  be  accepted.  If  it  is  known  that  a  species  will  reach  its 


I 


f 


80 


_  p 

equilibrium  value  before  10  0  secs,  the  increment  can  be  initially  set  to  some 
smaller  value,  thus  saving  computer  time. 

The  following  statements  are  a  listing  for  this  code. 


tlBFTC  INITAL  LIST  lemons 

SUBROUTINE  INI  TAL 

COMHON  TR6G( 150) .KEY (15) .FORM!  15  I, REM VI  15) .CONt 168 ),LKEY( 1 5) , 8EGININI T001C 


1(15) 


INIT0015 


COMMON  NUMB,  EUBAR,  EI.BAR,  0,002«0N2,  T  .PNE »  PNO»  P  02  i  PO  |PN?,.  TOTAL »  JACK  » INI  T0020 
1  JAKE  » JAM,  I  TER.L'I  NT,  1 2NT.K2NT,  J2NT.N2NT,  FIRST  ,PROD»LAH»T  IME.KB3  »TGTIN  I T0025 

20.T0TN-  INIT0030 

INIT0035 


INIT0040 

INIT0045 

INIT0050 

INIT0055 

INIT0060 


TREC(2)«0.0 
TREG(3)»l.0E-6 
FIRSWREGI3) 

00  5  J*l , 15 
i  TREGI  J*3  )  “BEGINI.J  ) 

TOTAL»PROD 

TOTO*TREG(  5).*2.0*TREG(  6)  *3.0*TREGI  Y,l*  2. 0*TREG<  8)  ♦TREGf  9)  *2.0*TR£G(  INIT0065 
1 10)  «-TREG(  12  )*’2,0*TREG(  15  )  *3.0*TREG(  16  )*TREG!  17)*TREGI  13)  ♦  TREG’.  18 )  ♦INI  TOO 70 
22.0*002  INIT0075 

T0rN*TREG(8)+2.0*TREG(  11  ) *TREG 1 12  ) *TREG{  13  )  *TREG(  14  >  *TREG (  15 )  *-2.0*INI  T0080 
1 TREG1  17)  ♦2.0*DN2  INI  70085- 

RETURN  INIT0090 


ENO 


INIT0095 


t 

1 

rr 


i  V 


7.1.7  SUBROUTINE  TO  COMPUTE  THE  EXTERNAL  IONIZATION 
SOURCE  FUNCTION,  PRODUC 

Theinsertion  of  any  particular  ionization  source  function  into  the  system  is 
facilitated  by  incorporating  a  separate  subroutine  for  this  purpose.  The  routine 
used  with  the  deionization  code  simply  injects  a  constant  rate  of  production  of 
icn-pairs/cm  / sec  into  the  differential  equations.  For  simplicity  this  constant  is 
read  into  the  computer  on  one  of  the  input  data  cards.  This  production  represents 
the  number  of  electrons  produced  by  some  external  source  other  than, the  chemical 
equations.  For  simple  deionization  problems  this  constant  production  rate  is 
partitioned  among  the  positive  ions  as  if  it  were  an  ultraviolet  source.  That  is, 

q(Ng)  =  0.  1392G*PROD 

qfO*)  =  0.  79272 *PROD 

q(0+)  =  0.06802 '•‘PROD 

Although  the  code  will  handle  any  time-dependent  function  it  will  not  operate 
properly  if  a  sharp  discontinuity  is  encountered  in  the  production  function  inside 
of  the  increment  At  .  If  discontinuities  are  present  in  the  source-function  they 
must  be  accommodated  for  by  the  main  program  before  the  integration's  attempted 
over  the  time  increment  in  which  they  exist. 
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The  following  statements  are  a  listing  of  this  subroutine. 


»I 


3FTC  PROOUC  LIST 

SUBROUTINE  PROOUC  PROOO0O5 

COMMON  TREGI 150 »  ,KEY(15i .FORM! 15I.REMV! 151 ,C0N! 168),LKEY( 15) .BEGINPR000010 
m5,  PRODOOl 5 

COMMON  NUMB, EUBAR.ELBAR,  0, 002, 0N2 , T ,PN6 . PNO, P02 . PO . PN2, TOTAL, JACK, PR000020 
1  JAKE. JAM, ITER, LINT, l 2NT, K2Nr , J2NT ,N2NT , FIRST, PROD, LAM, T IME.KB3, TOTPR000025 
20, TOTN  PR000030 

5  Tor«002*ON2»TR£G( 18)  PR000035 

P02s0. 79272*PR0D  PR00004C. 

PN2«0.13926*PR00  PR000045 

-  *  apnnnAcn 


PNE*PROO 

TOTAL-PNE 

RETURN 

ENO 


PR0D0055 

PRUD0060 

PR0D0065 

PR0D0070 


7.1.8  SUBROUTINE  TO  ESTABLISH  CHARGE  BALANCE,  BALAN 

This  subroutine  is  called  by  SLOP  whenever  it  is  necessary  to  compute  the. 
concentratiomof negative  species  from  charge  balance.  After  every  successful 
integration  the  main  program  finds  the  largest  negative  species  and  sets  the  variable 
LAM  to  an  appropriate  integer.  Using  LAM  ima  computed  GO  TO,  BALAN  com¬ 
putes  the  concentration  of  this  species  merely  by  subtracting  from  the  total  number 
of  positive  ions  the  sum  of  the  remaining  negative  ions.  BALAN  then  adjusts  the 
molecular-oxygen  and  the  molecular-nitrogen  reservoirs  to  insure  that  the  total 
numbers  of  oxygen  and  nitrogen  atoms  initially  inthe  system  remains  constant. 

'Hie  following  statements  are  a  listing  of  BALAN. 


U8FTC  BALAN  LIST  “*^N0000 

SUBROUTINE  BALAN  BALN0005 

COMMON  TREG( 1501  .KEY! 151 .FORM! 15)  ,REMVI 15) ,C0Ni 168 ( , LKEYI i5) , BEGINBALN0010 
1(15)  EALNO'H  5 

COMMON  NUM8, EU8AR.ELBAR, 0, 002, 0N2, T »PNE , PNO, P02 , P0.PN2, TOTAL, JACK, BALNOO-O 
lJAKE,JAM»tTER»LlNT,I2NT,K2NT,J2NT  ,  N2NT,  FIRST  ,  P.ROO,  L  AM,  T IME  ,KB3 ,  T0TBALN0025 
20, TOTN  BALN0030 

5  SUM “TREGI 9) tTREGI  10 1  ♦TREGI.l  1  )*TREG(  12  )  BALN0035 

GO  TO  (10, 15, 20, 25, 30, 35), LAM  BALN0040 

10  TREGI4 )»SUM- TREGI 5)-TREGI6)-TREGI 7  I -T  REG ! 8 1  BALN0045 

CO  TO  35  BALN0050 

15  TREGI5>»SUN-TREGI4J-TREGl6)-TREG(7)-TREG(8t  BALN0055 

GO  TO  35  8ALN0060 

20  TREGI 6) “SUM-TREG t 4 1-TREGI5) -TREGI 7 )— TREGI 8)  BALN0065 

GO  TO  35  BALN0070 

25  TREGI 7 (“SUM-TREGI 4)-TREG I5J-TREGI 6 1-T REG( 8 )  BALN0075 

CO  TO  35  BALN0080 

30  TREGI 8)“SUM- TREG (4)-TREG<5) -TREGI 6) -TREGI7 I  BALN0085 

35  002“  C I  TOTO-TREGI 5  )— 3.0*TREGI7) -TREGI9 l-TRECI  12  )-3,.0*TREG(  16)- TREGI  8ALN0090 
l 13)-TREGI17)-TREGI 18) 1/2.0 J-TREGI6) -TREGI8 (-TREGI 10)-TREG(15)  BALN0095 

DN2=  II  TOTN-TREGl  B  )-TREG!:l2  J-TREGI13  (-TREGI  14) -TREG  I  l5ll/2.0)-TREGlBALN0l00 
111  (-TREGI 17) 

*°^URN  bJlhoi-is 
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7.  r.  9  SUBROUTINE  TO  COMPUTE  THE  HISTORY  OF  TIIE. 

REACTIONS,  DAUXT 

Since  it  is  not  possible  to  determine  the  actual  kinetics  of  the  atmospheric 
constituents  simply  by  studying  the  solutions  to  the  differential  equations,  this 
program  is  incorporated.to  give  a  snapshot  of  the  chemical  reactions  whenever 
it  is  called. 

Each  time  DAUXT  is  called,  each  individual  reaction  is  computed  and  the 
entire  array  of  reactions  along  with  the  corresponding  rate  constants  and  the  re¬ 
action  rates  are  written  on  FORTRAN-tape  3.  The  reactions  arc  written .in  a 
pseudochemical  notation  that  is  easy  to  read.  By  examination  of  this  output  it  is 
a  simple  matter  to  determine  which  reactions  are  responsible  for  the  behavior  of 
any  species  at  any  particular  time. 

Computation  of  this  information  is-optional.  If  switch  KB2  is  on  zero  the  snap¬ 
shot  is  taken.  If  switch  KB2  is  on  one  computation  of  this  information  is  bypassed. 
There  is  also  an  option  to  print.this  history  after  every  integration  or  only  once  at 
the  beginning  of  each  decade  of  tir  e.  if  switch  KB3  is  on  one  the  history  is  printed 
once  for  each  decade  of  time.  I.  switch  KB3  is  on  zero  the  history  is  printed  after 
every  integration.  These  switches  are  set  by  one  of  the  input  data  cards. 

The  following  statements,  beginning  on  page  92,  are  a  listing  of  this  code. 

7.2  Diiimiil  .Variation  Code 

The  code,  as  described  in  Section  7. 1,  is  readily  applicable  to  the  problem 
of  the  diurnal  variation  of  the  atmosp  eric  constituents.  The  only  programs  that 
require  any  modification  are  the  main  program  and  subroutines  PRODUC  and 
BALAN.  One  additional  subprogram  is  necessary  for  the  computation  of  the  per¬ 
cent  obscuration  of  the  visible  light  from  the  sun  by  the  solid  earth  during  periods 
of  sunrise  and  sunset. 

7. 2...1  MAIN  PROGRAM  DIURN 

In  addition  to  the  functions  described  in  Section 7.1. 1,  the  main  program 
must  also  compute  the  times  of  sunrise  and  sunset  for  the  particular  altitude  and 
geographic  location  under  consideration.  Besides  accumulating  the  time  in  seconds, 
the  main  program  must  also  compute  the  local  solar  time  in  hours.  Although  the 
code  must  start  with  time  equal  to  zero  seconds,  this  zero  time  may  refer  to  any 
local  solar  time.  To  accommodate  these  additional  features  more  input  parameters 
are  required.  The  following  are  the  changes  in  the  input  data  as  described  in 
Section  7. 1. 1.3. 
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oxrooooo 

DXT00005 

dxtoooio 

REAC  TIQNS  FOR  15  SPECIES.  DXT00015 

COMMON  TREGI 1501 ,KEY( 151 .FORM! 151 ,REMVI 15> .CONI 1681.LKEYI 1 5) . BEGINDXT00020 
1(151  DXT00025 

COMMON  NUMB, EUBAR .ELBAR, 0, 002. 0N2, T ,PNE , PNO, P02 ,P0,PN2, TOTAL, JACK, DXT00030 
IJAKE.JAM,ITER,LINT.I2NT,K2NT, J2NT.N2NT , FIRST, PROO. LAM, TIME, KB3 , T0T0XT00035 


AIBFTC  OAUXT  LIST 

SUBROUTINE  OAUXT 
C 
C 


20.T0TN 


0X100040 


DIMENSION  R ( 168) 

C 

IFIKB3  .NE.  11  GO  TO  5 
I F ( TIME  .GT.  TREGI211  GO  TO  10 
5  00-TREGI18) 

Rt l  )*TREG( 6)*C0N< 1 1 
R(  21 »TREGI5)*C0N(2) 

K<  3)  *TREG(  81  *C0N(3 1 
R<  4)«TREGI7)*C0NI4) 

R<  5 1 «TREG ( 6) ♦002*C0N(5 1 
R(  61»TREG(6)*0N2*C0NI6) 

R<  71 »TR6G( 61 *00*C0N( 71 
R(  81 *TREG I  5) *00*C0N( 8) 

R(  9)«TREG(5I*002*C0N(9) 

RI  10)  »TREG  I  51  *TREG{  l‘>  )*CON(  10) 

R(  ll)*TREG(5)*DN2*C0N(lt) 

R(  12) -TREG15 )*TREGt 13>*CUN( 12) 

R(  13I»TREG(5)*TREGI 16 )*CONI 13 1 
R (  14) » TREG 1 6) *TREG(14) *C0N( 141 
R (  15 ) *TREG 1 61 *D0*C0Nl 151 
R(  16)»TREG(4) *00 ♦CON 1 16) 

R(  17)»TREG(4)«D02*C0N(17) 

R(  18 1  * TREGI 4 )*TREGI15) *C0N( 18  I 
R(  191 “TREG 1 4) *TREG( 1 6 ) *CON( 19 1 
R(  20)»TREGI4)*TREGU6)*C0N(20) 

Rt  21)-TREGI4)*TREGt 15)*C0N(21) 

RI  22)  “TREG  (41  *0Q*I0O2*CON(  221  1 
RI  23)«TREG(4) *00* I ON2*CON(  23)1 
Rl  24 1  * TREGI 4 1 *002*1 U02*C0N( 24 1 1 
RI  25l«TREG(4)*0O2»(DN2»C0NI25)l 
RI  26} “TREGI 4) *00* I002*CON( 26 1 1 
RI  271 “TREGI 4) * TREG 1 15 1* 1 0O2*CON( 27  1 1 
RI  28)»TREG(4)»TREG( 1 5 i * I0N2*C0N( 28 1 1 
Rt  29)*TREG(4)»TREG( 131* (0»C0NI 29)1 
RI  30)“TREGI4)*TREGIIC)*C0N(30) 

RI  3l)wrREG(4)*TREG(ll)*C0N(3l) 

RI  32)“TREGI4)*TREG(12 )*C0NI32 I 
RI  33) * TREG {41 *TREGI9 1 *1 0*C0NI 33 1 1 
RI  34)*TREGI4)*TREG( 10  I  *  1 0*CONI 34 1 1 
RI  35)»TREG(4)«TREGIll J*ID*C0N(35) 1 
RI  36 1 “TREG 14) *TR  EG! 12 ) * ID*C0NI 36 ) ) 

RI  37) * TREGI 4) * TREG I 12)*(0*C0NI37) ) 

RI  38I“TREG(4)*TR£G(9)*C0N(38) 

Rt  39)«TREG(4)*TREG(1C)*C0N(39) 

RI  40l“TREG(4)«TREG(ll)*C0NI40) 

RI  41)“TREG(4)*TREG(12)*C0N(41) 

RI  42) “TREG I  5) *TR EG 1 9! *CON( 42) 

RI  43)«TREGI6)*TREG(9)*C0N<43) 

RI  44) “TREG I  8) *TR EG 19) *C ONI  44) 

RI  A5)«TREG<7)*TREG(9)*C0N(45) 


0XT00045 
DXT00050 
0XT00055 
DXT00060 
DXT00065 
0XT00070 
DXT00075 
0XT00080 
0XT00085 
0XT00090 
DXT00095 
OXTOOIOO 
DXT00105 
OXTOOllO 
DXT00115 
DXT00120 
0XT00125 
OX  TOO  130 
OXT00135 
DXT00140 
0XT00145 
0XT00150 
OXT00155 
0XT00160 
DXT00165 
0XT00170 
DXT00175 
0XT00I80 
0XT00185 
DXT00190 
0XT00195 
DXT00200 
0XT00205 
0XT00210 
0XT00215 
DXT00220 
DXT00225 
DXT00230 
DXT00235 
DXT00240 
DXT00245 
DXT00250 
0XT00255 
DXT00260 
OXTO0265 
DXT00270 
0XT00275 
OXT00280 
DXT00285 
0XT00290 
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R<  46)*7R£GI5)*7REG( 10)*C0N(46) 

R(  47)«7REG(6)*7REG< 10)*C0N(47I 
R(  48)»7REG(8)*7REGI10)*C0N(48) 

R!  49)«7REG<7)*7REGil0)*C0N!49) 

R(  50) *7REG( 5) *7R£G< 1 1 )*CON( 50 ) 

R(  51)*7REG16)*7REG( 11 )*CON( 51 ) 

R(  52)«7REG(8)*7REGlll)*CON<52) 

R(  53)-7R£G(7l*TREG<il)*CON<53) 

R(  54)»7REG(5I*7REG112)*C0N<54) 

R(  55)«7R£G(6)*7REG< 12  »*CON(55 J 
R(  56 )»7REG ( 8) *TREG( 1 2 )*CON( 56 ) 

R<  57)«7REG<7»*7REGU2l*CON<57) 

R<  58)*7REG(5)*rREG(9)*(7REG(14)*CON<58)  ) 
R(  59)*7REG(5)*7REG<9 ) *1 002 ♦CONI  591 ) 

R(  60) *7ftEG( 5) *7REG(9 ) *( 0N2*C0N(60 ) ) 

R (  61)«7REG(5)*7REG(9) *( 0U*C0N(6 1 ) ) 

R(  62 •  *7REG<  6) *7REG(9 ) *( 0*C0Ni 62 ) ) 

R (  63)*7REG(5)*7REG( 10 )* (D*CON<63 ) ) 

R (  64) «7REG( 6) *7REG1 10 )*<0*CON<64 ) ) 

R(  65)’*7REG(5)*7REG(11  )*(  0*CDN(  65  ) ) 

R (  66)*TREG<6) *7REGi 11 1*<D*C0N<  66 ) ) 

2*  67)»TREG(5)*TREG(12I*(D*C0N<67)) 

R(  68) *7REG ( 6) *TREG( 12 )*<0*C0N( 68 ) ) 

R(  69)  *7REG(6)  *7REG(  1 1)*C0NI(>9 ) 

R(  70>»7REG (6) *7REG( 1 1 )*CQN( 70 ) 

R(  71)*7REG(6)*7REG<11 )*C0N( 71 ) 

R(  72)«rREG(6)*TREGlll )*C0NI 72 ) 

R(  731 «7REG<  8) *7REG< 1 1  )*CQN(73 ) 

R(  74I«7REGC7)*7REG<11)*C0N(74) 

R(  75)*7REG<6)*7REG( 12)*CQN<75) 

R (  76)«TREG(6)*TREG(12)*C0N(76) 

R(  77)»7REG«6)*7REG<12)*C0N(77) 

R{  78) »7REGI 8) *TREG< 12 >*C0N<  78  I 
R<  79) *7REG ( 8 ) *TREG< 12 )*C0N(  79 ) 

R<  80) »TREGI 8) *TREG( 121*CQN( 80 ) 

R(  81I»7REG(7)*7REG( 12  )*C0N(  81 ) 

R(  82)»7REG(7)*7REGC12)*C0N<82) 

R<  83)»7REG(9)*002*CGN<83) 

R (  84)»7REG(9)*7REG( 13)*C0N( 84 ) 

R(  85)*TREG(9)^TREG( 15 )*C0N( 85 ) 

R(  86)>7REG(9)*7REG(17I*C0N(86) 

R(  87) *7REG1 10) *7REG< 13)*‘C0N(87) 

R  (-  88) *7REG(  11 )  ♦D0*CQN(88) 

R(  89)*TREGt 11 )*002*CON(89) 

R(  90) *7REG  t 11 )*TREG (14)*C0N(90) 

R{  9l)«7REG(ll)*7REG(13)*C0N<9l) 

R  (  92t»7REG<51*7REG(  15  )*C0N(  92  ) 

R(  93)»TREG( 5) *TREG( 16)*C0N<  93 ) 

R(  94) *7REG 1 6)*0Q*C0N( 941 
R(  95)»TREG(6)*TREG(15)*C0N(95) 

R(  96)“TR6G(6)*TREGC 16)*C0N(96) 

Rl  97)»TREC(8)*TREG(16)*C0N(97) 

R(  98 )«TREG( 7) *TREG( 15)*C0N( 98 ) 

R(  99)«7REG«9)*00*C0N(99) 
R(100)«7REG(9)*7REGU4)*CONIIOO) 

R(  101 )  *7REGI  9)  *ON2.*CON(’101) 
R(102)»TREG<9)*TKEGU3)*CaN1102) 
R(103)*7REG< 10)*0G*C0N(lO3) 

R(  10*:,_7REG(  11  )*ON2*CON(  104) 


0X700295 
0X700300 
0XT0C305 
0X700310 
0XT0031 5 
0XT00320 
0X700325 
DXT00330 
0XT00335 
0X7003,40 
0X700345 
0X700350 
0X700355 
0X700360 
0X700365 
DX700370 
0X700375 
0X700380 
0X700385 
0X700390 
0X700395 
0X700400 
0X700405 
0X700410 
0X700415 
0X700420 
0X700425 
0X700430 
0X700435 
0X700440 
0X700445 
0X700450 
0X700455 
0X700460 
0X700465 
0X700470 
0X700475 
0X700480 
0X700485 
0X700490 
0X700495 
OX7OO50O 
0X700505 
0X7005,10 
0X700515 
0X700520 
0X700525 
0X700530 
0X700535 
DX700540 
0X700545 
0X700550 
0X700555 
0X700560 
DX700565 
0X700570 
0X700575 
0X700580 
0X700585 
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R(  105)*TREG(12)  *DO*CONt 105 ) 

Rt 106)*7REG<5)  *002*C0N(106) 

R< 107>*TREG<9)*00*t0*C0N<107)t 
Rt 108)»7REGt9)*TREG( 14 >♦ tO*CON( 108 ) ) 

R ( 109 ) *  TREGt  9 ) *DN2*t  0*C0N( 1091 ) 

Rt 110)*7REG{9)*TR£G< 13 l*(D*CONt 1 10 ) ) 
Rtlll)*TR6Ctl0)*00*(0*C0Htllll ) 

Rt ll2l*rREGtl2>*Da*<0*C0N<ll2)  I 
Rtll3)*7R£Gtl2 I ♦TREG( 141 *( 0*C0N(  113)1 
:Rai4)«tREG(5J*TREGI13»*(0*CON»-H*:-; 
\Rt.l  15)  *7R6G( 6)  *7REG(  14)*(0*C0N< 1 15 ) ) 
h  1 1 16) “TREG 1 91 *ON2*CONt l 161 
Rt 1171 *7REGt  9 ) *7REG( 13)*C0Nt 117) 

Rvll8) “TREGt 10 )*  TREGt 141 *C ONI  1 161 
R(119)*TR£Ct 10)*DK2*C0Ntll9) 

R( 120) “TREGt 10)*TREG(14)*CQNtl20) 
R(12l)*TREG( 10 )* TREGt 151 *COM(  121 1 
Rt 122)*TREG( 11 )*00*C0N<122) 

R<  1231*1  RECdl  )*002*C0Nt  123) 

Rt 124) * TREGt 51 *D02*t002*C0Nt 124) ) 

Rt 125) “TREGT6) *002*1 0N2*C0Nt 125) ) 

Rt 126)*TREG(7)*DN2*C0N(126) 

Rt 127) *00*  t  DO*CON< 127  ) ) 

Rt 128)>00*t002«C0Ntl28)l 
Rt 129) *TREG( 14)*00*CONtl29) 

R t 130) »D0*DN2*C0N t 130 
Rtl31)*rREGtl3) •00*C0NI 1311 
Rt 132) “TREGt 14 )*TREGt 141 *CONt 132 ) 

Rt l33l*rREGt 14 )*002*C0Nt 133 1 
R 1 134 ) *TREG  tl4)*TREGtl3) *C0Nt 134) 

Rt 135) »00*00*t 002*C0N( 135) ) 

Rt 1361 *00*00*  t  00* CON 1 136)) 

Rt 137) »0Q*00* I 0N2*C0N (137) ) 

Rt  138) *00*002* ( D02*C0Nt l 38 ) ) 

Rt  139) “00*002* ( 0N2*C0N( )i39 )  ) 

R 1 140 1  *00*002* ( 00*C0N (140) ) 

Rt l41)*TREGt 14)*00*(0*C0Ntl41)) 

Rt 142) *00* t  DN2*C0N( 142 1 ) *0 
Rt 143)-D0*TREG(13)*t002»C0N(143) ) 

Rt 144) »DO*TREG( 13 )*( 0N2*C0Nt 144) ) 

R 1 145 ) “TREGt 14) * TREG 1 14) *1 0*CQN(  145)) 

Rt 146)*TREGtl4)*( 002* CONI  146) )  *0 
Rt 147) *TREGt 14 )*TREGt 13)*(0*C0N( 147)) 

Rt 148)*TREGtl3)*t  002* CON  tl48))*TREGti3) 
R 1 149 ) *t  DO*CON ( 149) ) *0N2 
Rt 150) *( OQ*CONt 150))*TREG113) 

R 1 151 ) *t  DO*CON (151))*TREGtl5) 

Rtl52)*t  00*C0N( 152))*TREG(17) 

Rt 153) *t  D0*C0N( 153))*TR6G(17) 

Rt 154) *t  00*CONt 154 ) ) *TREGt 16 ) 
Rtl55)*TREGtl4)*( 002*CONt 155)1 
Rt 156)*TREGtl4)*TREGt 13)*C0N(156) 

Rt 157) »TREGt 14)*TREG(15) *C0N( 157 ) 

Rt l58)*TREGt 14 ) *TREGt 15)*CONtl581 
Rtl59)*TREGt 14) *TREG 1^5) *CONt 1 59 ) 

Rt 160) *TREGt l4)*TREG(16)*C0Nt 160) 

Rt 161 ) *0Q2*C0N  1 161 1 
Rt 162) “TREG t 13)*C0N( 162) 

Rt 163) *TREG  1 15 )*CCNt 1 63) 


0XT00590 
DXT00595 
0XT00600 
0XT00605 
DXT00610 
0X700615 
DXT00620 
0X700625 
0X100630 
0XT00635 
0X700640 
0XT00645 
0XT00650 
0XT0065S 
DXT00660 
DXT00665 
0XT00670 
0XT00675 
OXT  00680 
DXT00685 
0X700690 
DXT00695 
0XT00700 
DXT00705 
DXT00710 
0XT00715 
DXT00720 
DXT00725 
0X100730 
0XT00735 
DXT00740 
0XT00745 
0XT00750 
0XT00755 
0XT00760 
DXT00765 
DXT00770 
0X700775 
OXT00780 
DXT00785 
DXT00790 
0X700795 
0X700800 
0X700805 
0X700810 
0X700815 
0X700820 
0X700825 
0X700830 
0X700835 
0X700840 
0X700845 
0X700850 
0X700855 
0X700860 
DX700865 
0X700870 
0X700875 
0X700880 
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R( 164}*Tft6GI 17 ) *CCN( 1641 

DXT00885 

R(165)«TREG(17)*CCN<165) 

DXT00890 

RI 166) »TREG( 16 ) *CGN( 1661 

0XT00895 

RU67)«TREG(TI*TR£G(18)*C0N(167) 

OXT00900 

Rt 168)«TREG(8)*TREG! 18I*C0N( 1681 

DXT00905 

WRITE(3,15) 

OXT00910 

WRITE  (3.20) 

TREGI2) 

0XT00915 

WRI TEI 3, 25) 

0XT00920 

WRITE (3»30) 

DXT00925 

WRITE  (3.35) 

(C0N(  JI.RIJ) ,J*l ,4) 

0XT00930 

WRITE! 3.40) 

0XT00935 

WRITEt  3,30) 

DXT00940 

WRITE  (3.45) 

(CONI J),R(J),J*5,7) 

DXT00945 

WR ITE(3, 50 ) 

DXT00950 

WRITEt  3, 30 ) 

DXT00955 

WRITE!  3.  55)  (CONI JI.RIJ)  ,J*.8,15)  ,'(C0N(J  >  ,R(  J) ,  J»167,  168) 

OXT  00960 

WRITE(3,60) 

0XT00965 

WR  I T  E  ( 3 , 30 ) 

0XT00970 

WRITE  (3,65) 

( CON ( J),R(JI»J»16,19I 

0XT00975 

WRITE! 3, 70 ) 

DXT00980 

WRITE(3,30) 

DXT00985 

WRITE  (3,75) 

( CONI JI,R(J),J*20,2l) 

0XT00990 

HR ITE( 3, 80) 

0XT00995 

WRITE! 3,301 

0XT01000 

WRITE  (3,85) 

(CON! J),R(J).J»22,29I 

DXT01005 

WR I TE (3,90) 

DXT01010 

WRITE (3, 30) 

0XT01015 

WRITE  (3,95) 

(CONI JI.RIJ), J-30, 32) 

0XT01020 

WR I TE( 3 , 100  ) 

0XT01025  * 

WRITE13.30) 

0XT01030 

WRITE  (3,105) 

(CON(J) ,R( J), J-33,37) 

0XT01035 

WRITE(3,U0) 

DXT01040 

WR I TE ( 3, 30) 

0XT01O45 

WRITE  (3,115) 

(CONI J) ,R( J), J«38,41 ) 

0XT01050 

WRITEO.120) 

DXT01055 

WR I TE( 3, 30 ) 

0XT01060 

WRITE  (3,125) 

(CONI J) ,R(JI, J-42,53) 

0XT01O65 

WRITE  (3.130) 

(CONI J) ,R(J),J>54,57) 

0XT01O7O 

WRITE (3, 135) 

DXT01075 

WR I TE( 3. 30) 

0XT01080 

WRITE  (3,140) 

(CONI J) ,R( JI.J-58,68) 

0XT01085 

WRITE13, 145) 

0XT01090 

WR  1 T  E ( 3 , 30  ) 

0XT01095 

WRITE  (3,150) 

(CONI J)  , R  ( J ) ,  J»69 , 80  ) 

0XT01100 

WRITE  (3,155) 

(CONI J) ,R(J),J«81 ,82) 

DXT011Q5 

WR  1TE( 3, 160  J 

0XT0U10 

WRITEO.30) 

0XT01115 

WRITE  (3,165) 

(CON  ( Jl  ,R('J)»J»83,9l) 

DXT01120 

WRITEI3, 170) 

0XT01125 

WRITEI3, 30) 

0XT01130 

WRITE  (3,175) 

(CONI JI.RIJI ,J*92,98) 

0XT01135 

WRITEI3.180) 

DXT01140 

WRITE! 3, 30) 

0XT01145 

WRITE  (3,185) 

(CONI Jl ,R(J> ,J«99,106) 

0XT01150 

WRITEI3, 190 ) 

DXT01155 

WRITE(3,30) 

0XT01160 

WRITE  (3,195) 

(CONI J),R(J),J«107, 115) 

0XT01165 

WRITE! 3, 200 ) 

0XT0U70 

WRITEt  3, 30) 

0XT01 175 

WAITE  0,205) 
WRITE(3,210> 
WRITEO.30) 
WAITE  0,2151 
WRITE! 3,220) 
WRITE! 3,30) 
WRITE  0, 225) 
WR I TE! 3,230 ) 
WRITE0.3O) 
WRITE  0,2351 
WRITE  (3,260) 
WfllTE! 3,260) 
URITEO.30) 
WRITE  0,285) 
WRITE  0,245) 
WRITE! 3, 250 ) 
WRITEO.30) 
WRITE  0,255) 
'WRITE  (3,265) 
WRITEI3.290) 
WRITE  0,270) 
WRITE  0,295) 
WR1TE(3,290) 
WRITE-  0,275) 


IC0N(J).AI JI,J-116,123) 


(CON! JI.R! J),J»124,12t) 


(CON ( J) ,R( J1 , J*127, 134) 


( CON! J ) , R( i) , J»135 • 146) 
(CON! 147) ,R( 147) ) 


<CON(148i;RU48j) 

(CCN( JI,R1 J),J»149,160> 


(CON(J),R(J), J-161,166) 

TOTAL 

PTNO, PNO, PT02 , P02 , PT  0, P0.PTN2, PN2 


WRITE  (3,275)  4J,R(J) ,J*1,165) 

WRITE ( 3, 280)  !J,R(J),J»166,168) 

TIME»TIM£*lO.O 
10  RETURN 

15  FORMAT! IH1.47X28M  KINETICS  OF  THE  REACTIONS.  ) 
20  FORMAT! 1H0.47X7H  TIME  -1PE12.5.6H  SEC.  ) 

25  FORMAT! 19HOPHOTO  DETACHMENT.  ) 

30  FORMAT ( 6H0  NO. , 15XSHREACT ! ON, 17X16HC0NSTANT 
IREACTI0N.17X17HC0NSTANT  RATE  ) 


DXT0U80 

DXT01185 

DXT01190 

0XT011C5 

PXT01200 

DXT01205 

0XT01210 

0XT01215 

0XT01220 

0XT01225 

0XT01230 

0XT01235 

0XT01240 

0XT01245 

DXT01250 

DXT01255 

DXT01260 

DXT01265 

0XT01270 

0XT01275 

N2  DXT01280 

DXT01285 
0XT01290 
0XT01295 
DXT01300 
DXT01305 
DXT01310 
OXf 01315 
0XT01320 
0XT01325 

RATE.6X3HN0., 15X8H0XT01 330 
0XT01335 


35  F0RMAT(4X12Hl.  02-  ♦  HV.9X10H*  02  ♦  E,10XiP2El0.2,4X12H2.  0-  0XT01340 

O  HV.9X10H-  0  ♦  E.10X1P2E10.2/4X12H3.  N02-  ♦  HV.9X10H-  N02  ♦  EDXT01345 

2, 10X1P2E10.2 ,4X12H4.  03-  ♦HV.9X10H-03  .♦  S, 10XIP2E10.2)  DXT01350 

40  FORMAT! 25H0C0LL I SIONAL  DETACHMENT.  )  DXT01355 

45  FORMAT! 4X1 2H5.  02-  ♦  02.9X18H*  02  ♦  E  ♦  02, 2X1 P2E10 .2, 4X 12H60XT01360 

l.  02-  ♦  N2.9X18H-  02  ♦  E  •  ♦  N2  *  2X IP2E 10 .2/4X l IH7 .  02-  ♦  0.10DXT01365 

2X17H-  02  ♦  E  ♦  0, 3X 1P2E10 .2 )  DXT01370 

50  FORMAT! 25H0ASS0C I  ATI  VE  DETACHMENT.  I  DXT01375 

55  FORMAT (4X1 IH8.  0-  ♦  0, lOXIOHi  02  ♦  E,10XIP2E10.2,4X12H9.  0-  0XT01380 

!♦  02.9X10H*  03  ♦  E.10X1P2E10.2/3X12H10.  0-  ♦  M,10X10H»  NO  ♦  0XT01385 

2E,10X1P2E10.2,3X13HU.  0-  ♦  N2,9X10H«  N20  ♦  E.IOX1P2E10.2/3X13HDXT01390 

312.  O-  ♦  N0,9X10H«  N02  *  E, 10X1P2E10.2.3X13H13.  0-  ♦  03,9X20HDXT01395 

4»  02  ♦  E  ♦  02  1P2E10.2/3X12H14.  02-  ♦  N.10X10H*  N02  ♦  E.10DXT01400 

5XIP2E10.2.3X12H15.  02-  ♦  0.10X10H-  03  ♦  E, 10X1P2E10.2  /3X13H167DXT01405 

6.  03-  -♦  0, 10X17H*  02  *02  ♦  E , 3X 1P2E10. 2, 2X13H168.  N02-  ♦  0.1DXT01410 

70X17H-  02  ♦NO  ♦  E.3X1P2E10.2)  0XT01415 

60  FORMAT ! 23H0RA0I AT  I  VE  ATTACHMENT.  )  0XT01420 

65  FORMAT! 3X12H16.  0  ♦  E.10X11H*  0-  ♦  HV,9X1P2E10.2,3X12H17.  02  0XT01425 

l  ♦  E.19X11H*  02-  ♦  HV,9'X  1P2E  10 «  2/:3Xl2H18  •  N02  ♦  E.lOXllW*  N02-  0XT01430 

2«-  HV,9X1?2E10.2,3X12H19.  03  ♦  E,lOXllll»  03-  ♦  HV.9X1P2E10.2)  0XT01435 

70  FORMAT! 26H00I SSOC I  AT  I VE  ATTACHMENT.  )  0XT01440 

75  FORMAT! 3X12H20.  03  ♦  E,1QXUH>  0-  ♦  02,9X1P2E10.2,3X I2H21.  03  0XT01445 

1  ♦  C-i  lOXlOH*  02-  ♦  0 .10X1P2E 10 .2 )  0XT01450 

80  F0RMAT(24H0THREE  0007  ATTACHMENT.  <)  0XT01455 

85  FORMAT! 3X33H22.  0  ♦  6  ♦  02  *  0-  ♦  02,9XIP2E10.2,3X33H23.  0XT01460 

10  ♦  £  ♦  N2  -  0-  ♦  N2, 9X1P2 El 0. 2/3X3 3H24.  02  ♦  E  ♦  020XT01465 

2  «  02-  ♦  02.9XIP2E10.2.3X33H25.  02  ♦  E  ♦  N2  *  02-  ♦  N2.9X0XT01470 
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31P2E10.2/3X32H26.  02  ♦  <E  4  0  «02-  ♦  0, 10X 1P2E10.2,3X33H270XT01475 

4.  NO 2  ♦  E  ♦  02  ■  N02>  4' 02.9X1P2E10.2/3X33H28.  N02  4  E  ♦  0XT01480 

5N2  -  N02-  4  N2.9X1P2E10.2.3X32H29.  NO  4  E  4  N  -  NO-  4  M»IDXT01485 

60XIP2E10.2)  DXT01490 

90  FORMAT! 29H0DI SSOC IATI VE  RECOMBINATION.  »  0XT0I495 

95  FORMAT ! 3X12M30.  024  4  E,10X10H»  0  4  0,10XlP2Ei0.2,3X12HSl.  N240XT01500 

1  4  E.10XI0H-  N  4  :N,10X1P2E10,2/3X12H32.  N04  4E.10X10H-N  DXT01505 

.24  0,  10X1P2E10.2)  0XT015I0 

100  FORMAT! 2 7H0 THREE  BODY  RECOMBINATION.  »  DXT01515 

105  FORMAT! 3 X32H33.  04  4  E  4  M  »  0  4  M, 10X IP2E 10.2, 7X32H34.  0XT01S20 

1024  4  £  4  M  -  02  4  M.10X1P2E10.2/3X32H35.  N24  ♦  ,  4  .*1  0XT01525 

2  «  N2  4  M, 10X1P2E10.2.3X32H36,  N04  4  E  4  M  «  NO  4  M. 10XDXT01530 

31P2EI0.2/3X39H37 .  N04  4  E  4  M  »  N  4  0  4  N, 3X 1¥2E10.2 J  0XT0I535 

110  FORMAT! 2 6H0RADIATIVE  RECOMBINATION.  >  0XT01540 

115  F0RMATI3X12H38.  04  4  E.10X11H*  0  4  HV,9X1<??*10,.2»3XU!<»9.  024DXT01545 

1  4  E.10X11H-  02  4  HV.9X1P2E10.2/3X12H40.  N24  4  E, ICXilK*  N2  0XT01550 

24  HV,9X1P2E10.2,3X12H41.  N04  4  E.10X11H-  NO  4  HV,VXlr2E:,0.2I  0XT01555 

120  FORMAT! 3 2H1 1 ON- 1 ON  MUTUAL  NEUTRAL  12  AT  ION.  )  '  DXT01560 

125  FORMAT! 3X13H42i  0—  4  04.9X10H-  C  4  0, 10X1P2E10.2.3XL3H43.  O2-0XTO1565 

1  4  04,9X10H»  02  4  0, 10XIP2E 10 .2/3X  13H44.  N02-  4  04.9X10H-  N02  0XT015T0 

24  0. 10X1P2E10.2.3X13H45.  03-  4  04.9X10H-  03  4  0, 10X1P2E 10.2/3X1DXT01 575 

34H46.  0-  4  024. 8X11H*  0  4  02,9X1P2E10.2;3X14M47.  02-  4  024, 80XT01580 

4X1 IH*  02  4  02.9X1P2E10.2/3X14H48.  N02-  .4  024.8XUH*  N02  4  02, 9X0XT01 585 

51P2E 10.2.3X14H49.  03-  4  024.8XUH-  03  4  02.9X1P2E10.2/3X14HS0.  0XT01590 

60-  4  N24.8X11H-  0  4  < N2 , 9X i P2 E 1 0 . 2 , 3 X 14 H5 1 •  02-  4  N24.8X11H*  0XT01595 

702  4  N2.9XIP2E10.2/3X14H52.  N02-:  4  N24,8XllNn  N02  4  N2.9X1P2E100XT01600 

8.2.3X14H53.  03-  4  N24.SXUH*  03  4  N2.9X1P2E10.2)?  0XT01605 

130  FORMAT! 3 X14H54.  0-  4  N04,8X11H«  0  4  N0,9X1P2E10.2,3XI*«55.  02DXT01610 

1-  4  N04.8X11M-  02  4  N0.9X1P2E10.2/3X14H56.  N02-  4  N04.8XUH-  NUDXT01615 

22  4  NO, 9X1P2E10.2. 3X14H57.  03-  4  N04.8XUH-  03  4  H0.9X1P2E10.20XT01620 

3)  0XT01625 

135  FORMAT! 35H0THREE  BOOY  ION-ION  RECOMBINATION.  J  DXT0163C 

140  FORMAT! 3X32H58.  0-  4  04  4  N  -02  4  N.10XIP2E1O.2.3X33H59,  0XT01635 

10-  4  04  ♦  02  *  02  4  02.9XIP2E10.2/3X33H60.  O-  4  C J-  4  N20XT01640 

2  «  02  4  N2, 9X1P2E1 0.2,3 X32H61.  0-  4  04  40  »  02  4  O, 10X0XT01645 

31P2E10.2/3X32H62.  02-  4  04  4  H  «  03  4  M, 10X1P2E10.2.3X32H630XT01650 

4.  0-  4  024  4  N  -03  4  M,10X1P2E10.2/3X39H64.  02-  4  024  4  0XT01655 

5M  *  02  4  02  4  M,3X1P2E10.2,3X32H65.  O^-  4  N24  4  M  »  N20  DXT01660 

6  4  M, 10X1P2E1C. 2/3X39H66.  02-  4  N24  4  N  -  02  ♦  N2  4  M, 3X1P0XT01665 

72610.2, 3X32H67.-.0-  4  N04  4  N  »  N02  4  M.10X1P2E10.2/3X39H68.  0XT01670 

802-  4  N04  4  M  -  02  V  NO  4  M.3X1P2E10.2I  0XT01675 

145  FORMAT! 44H0 ION- 1 ON  NEUTRALIZATION  WITH  REARRANGEMENT.  .»  0XT01680 

150  FORMAT! 3X14H69.  02-  4  N24 ,3X1 1H«  NO  4  NO, 9XIP2610.2, 3X 14H70 .  020XT01685 

1-  4  N24.8X10H-  N20  4  O.10XIPZE1O.2/3X14H71.  02-  4  N24.8X10H-  N00XT01690 

22  4  N» 10XIP26 10.2.3X 14H72 .  02-  4  N24,8X11H«  2N  4  20.9X1P2E10.20XT01695 

3/3X14M73.  N02-  4  N24.8X11M-  N20  4  NO, 9XIP2E10. 2, 3XUM74.  03-  4  N0XT01700 

424.8X11N-  N20  4  02.9X1P2E10.2/3X14H75.  02-  4  N04,'BX10H«  N02  4  00XT01705 

5, 10X1P2E10.2.3X14H76.  02-  4  N04.8X11H-  N  4  03,9XIP2E10.2/3X14HDXT01710 

677.  02-  4  N04.8X17H-  N  4  02  4  0,3X1P2E10.2,3X14H78.  N02-  4  N0XT01715 

704.8X10H-  N03  4  N, 10X1P2E10.2/3X14H79.  N02-  4  N04,8X17H»  NO  ♦  0DXT01720 

82  4  N,3X1P2E10.2,3X14H80.  N02-  4  N04,8X11H«  03  4  N2.9X1P2E10, 20XT01725 

9)  0XT01730 

155  F0RMATI3X14H81.  03-  4  N04.8X17H-  02  4  02  4  N,3X1P2E10.Z,3X14HDXT01735 

182.  03-  4  N04,8X12H«  02  4  N02 .8X1P2E10.2I  0XT01740 

160  FORMAT! 27HOPOSI TI VE  CHARGE  TRANSFER.  )  0XT01745 

165  FORMATI3X13H83.  04  4  02,9X12H»  0  4  024, 8X1P2E10. 2,3X 13H84.  040XT01750 

1  4  NQ,9X12H»  0  4  N04.8X1P2E10.2/ 3X14H85.  04  4  N02.8X13H-  0  DXT01755 

2  4  N02 ♦ , 7X1P2E 10.2 . 3X14H86 .  0*  4  N20.8X13H-  0  4  N204, 7X1P2E0XT01760 

310.2/3X13H87.  024  4  N0.9X1ZH* <02  4  N04,8X1P2E10.2,3X12H88.  N24  0XT01765 
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4  *  0.10X11H*  N2  ♦  0*.9XIP2E10.2/3X13H89.  N2*  ♦  02.9X12H*  N2  *0X101770 

5  02*»8XIP2£10«2»  3X12H90.  N2*  *  *:«10XllH«  N2  ♦  N*,9X1P2E10. 2/3X10X70177.5 

63H91.  N2*  ♦  N0.9X12H*  N2  ♦  N0*«8XIP2E10.2I.  0XT01780 

170  FORHRTI 27H0NEGAF1 Vfi  CHARGE  TRANSFER.  i  DXT01785 

175  F0RMATI3X14H92.  0-  ♦  N02.8X13H*  0  ♦  NQ2-.7XIP2E10.2. 3X13H93.  0X101790 

10-  03. 9X12H*  0  ♦  03-.SX1P2E10.2/3X12H94.  02-  ♦  0.10XUH*  00XT01795 

22  ♦  O-.9XIP2E10.2.3X14H95.  02-  ■*  N02.8X13H"  02  *  N02-.7X1P2E10XT01800 

30.2/3X13H96.  02-  ♦  03.9X12H*  02  ♦  03- .8X1P2E 10. 2, 3X 13H97.  N02-  0XT01805 

4 *  03.9X12H-  NO 2  ♦  03- ,8XIP .0.2/3X14H98 .  03-  *  N02.8X13H*  03  0XT01310 

5*  H02-.7X1P2E10.21'  DXT01815 

180  FORHAT!37HOION-NEin\RAL  ASSOCIATION  (TWO-BODY).  1  DXT01820 

185  FORMAT! 3X12H99.  0*  *  0.10XUH*  02*  *  HV.9XIP2E10. 2 .2X13H100.  0*0XT01825 

1  *  N> 10X1 IH*  NO*  ♦  HV.9X1P2E10.2/2X14H1QI.  0*  ♦  N2.9X11H*  M200XT01830 

2*  ♦  HV.9X1P2E10.2 , 2X14H102 •  0*  *  NQ.9X11H*  N02*  ♦  HV, 9X IP2E 10. 2/0XT01 835 

32X13H103.  02*  ♦  O.lOXllH-  03*  *  HV. 9X1 P2E10. 2 , 2X 14H104.  N2*  ♦  NDXT01840 

42.9X11H-  N4*  ♦  HV.9X1P2E10.2/2X13H105.  NO*-  ♦  0U0X11H*  N02*  ♦  HVDXT01845 

5 .9XIP2E10. 2. 2X14H106.  0-  *  02.9X11M*  03-  ♦  HV.9X1P2E10.2)  0XT01850 

190  FORMAT ( 39H1 ION-NEUTRAL  ASSOCIATION  1THREE-B0DY) .  1  DXT01855 

195  F0RMATI2X33H107.  0*  *0  ♦  N  »  02*  ♦  M, 10X1P2E10.2.2X33H1080XT01860 

1.  o*  *  N  *  M  *  NO*  ♦  M.10X1P2E10.2/2X33H109.  0*  ♦  N2  *0XT01865 

2  M  «  N20*  ♦  M.IPX1P2E10.2 .2X33H110.  0*  ♦  NO  *  M  »  N02*  *  M0XT01870 

3, l0XlP2E10.2/2X33Hlfl.  02*  *  0  ♦  N  »  03*  ♦  M»  10X1P2E10.2.2X0XT01875 

433H112.  NO*  ♦  0  ♦  M  *  N02*  ♦  M, 10X1P2E10.2/2X33H113.  NO*  V  0XT01880 

5N  ♦  M  «  N20*  ♦  M. 10XIP2E10.2.2X33H1 14.  0-  *  NO  *  M  »  N0DXT01885 

62-  ♦  M. 10XIP2E10. 2/2X33H115.  02-  ♦  N  ♦  H  »  N02-  *  N, 10X1P2E1DXT01890 

70.21  DXT01895 

200  FORMAT! 37HOCH ARCED  REARRANGEMENT  POSITIVE-ION.  I  0XT01900 

205  FORMAT I2X14H116.  0*  ♦  N2.9X10H-  NO*  ♦  N, 10XIP2E10 . 2, 2X 14H117.  0DXT01905 

l*  ♦  N0.9X10H-  02*  ♦  N.10X1P2E10.2/2X 13H1 1 8.  02*  ♦  N.10X11H-  0*DXT01910 

2  *  NO. 9X1P2E 10. 2.2X1 4H 119.  02*  ♦  N2.9XUH-  NO*  ♦  NU.9X1P2E10.2DXT01915 

3/2X13H120.  02*  ♦  N,10X10H=  NO*  *  0, 10XIP2E10.2.2X15H121 .  02*  ♦  0XT01920 
4N02.8X11H*  NO*  *  03 .9XIF2E10.2/2X13H122.  N2*  ♦  O.IOXIOH-  NO*  ♦  DXT01925 
5N.10X1P2E10.2. 2X14H123.  N2*  *  02*9X11H«  NO*  ♦  H0.9X IP2E 10. 2 1  0XT01930 

210  FORMAT! 37H0CHARGED  REARRANGEMENT  NEGATI VE-IQN.  »  .  DXT01935 

215  FORMAT  1 2X34H124.  O-  *  02  ♦  02  *  03-  *  02»9x;:P2E10.2. 2X35HI25DXT01940 

,1.  02-  *  02  ♦  N2  *  NO 2-  *  N02 .8X1P2E10.2/2X14H326.  03-  ♦  N2.9XDXT01945 

ZtlH*  N02—  ♦  N0.9X1P2EICS.-2)  DXT01950 

220?iFORMAT!30HOTHO-BOCY  ATOH^RECOMBI NAT  ION.  I  0XT01955 

225 'FORMAH2X13H127.  C  ♦  Q.IOXUH*  02  *  HV.9X1P2E10.2/ 2X 14H128.  0DXT01960 

1  *  02.9X1 1H»  03  .  ♦  HV.9XIP2E10.2/2X13H129.  N  *  0, 10X11H»  N0DXT01965 

2  ♦  HV.9X1P2E  10;  2.2*.’  4H130.  0  ♦  N2.9X11H*  N20  ♦  HV.9X1P2E10.2DXT01970 

3/2X14H131.  0  *  N0.,9X11H«  N02  ♦  HV  .9X1P2E10.2 .2X13H132 .  N  ♦  0XT01975 

4N.10XUH*  N2  *  HV.9X1P2E10.2 /2X 14H133 .  N  ♦  02,9XUH«  N02  *HDXT01980 

5V.9X1P2E10.2 .2X14H134.  N  ♦  NO,  9XUH»  N20  *  HV.9XIP2E10.2)  DXT01985 

230  FORMAT ! 32H0THREE- BODY  ATOM  RECOMBINATION.  I  ;0XTC1990 

235  FORMAT! 2X34H135.  C  *  0  ♦  02  *  02  ♦  02. 9X1 P2E10.2 , 2X33H1360XT01995 

1.0  *0  *0  «  02  ♦  0.10X1P2E10. 2/2X34 HI 37,  0  *  0  *0XT02000 

2  N2  «  02  *  N2 .9X1P2E10. 2.2X34H138.  0  *02  ♦  02  *  03  ♦  OOXT02005 

32.9XIP2E10.2/2X34H139.  0  *  02  ♦  N2-  «  03  ♦  N2,9X1P2'.10.2.2X0XT02010 

4 33H140.  0  *  02  *  0  *'03  ♦  0,  10X1P2E10.2/2X33H141 .  N  *  DXT02015 

50  ♦  M  «  NO  ♦  M.10X1P2E10.2.2X33H142.  0  ♦  N2  *  M  N20XT02020 

60  ♦  M« 10X1P2E 10 . 2/2X34H143.  0  ♦  NO  ♦  02  ”  N02  *  02.9X1P2E10XT02025 

70.2.2X34H144.  0  ♦  NO  ♦  N2  ■  N02  ♦  N2.9X1P2E10.2/2X33H145.  N0XT02030 

3  *  N  ♦  M  «  N2  ♦  M.10X1P2E10.2.2X33H146.  N  ♦  02  ♦  M  0XT02035 

9  «  N02  ♦  M.10X1P2E10.2)  0XT02040 

240  F0RMATI24H0NEUTRAL  REARRANGEMENT.  I  0XT02045 

245  FORMAT! 2X14 H149.  C  ♦  N2.9X10H*  NO  ♦  N. 10XIP2E10.2.2X 14H150.  O0XT02O50 
1  *  N0.9X10H*  02  ♦  N.10X1P2E10.2/2X15H151.  0  *  N02r9XllH«  N0XT02055 

20  *  02.9X1P2E10.2.2X15H152.  0  ♦  N20.8X11H*  NO  ♦  N0.9X1P2EL0DXT02060 


3.2/2X15H153.  0  *  N20,8K11H«  02  *■  N2.9X1P2E10. 2,  2X14!) 1 54.  0  DXT02065 

4  ♦  03, 9X1 1H»  02  «■  02, 9X1P2E10. 2/2X1 4H 155.  N  ♦  02.9X10H*  NO  DXT02070 

5*  0,10X1 P2E10. 2, 2X14H156.  N  ♦  N0.9X10H*  N2  ♦  0, 10X1P2E10.2/2X0XT02075 
615H157.  N  ♦  NU2.8X11H-  N2  *■  02 ,9X1P2E’ 0 .2, 2X1 5H158.  N  *•  NODXT02080 
72.8X11H*  NO  »  N0,9X1P2E10.2/2X15H159.  N  ♦  N02.8X10H*  N20  ♦  00X702085 

8.10X1P2E10.2.2X14H160.  NO  ♦  03.9XUH*  N02  ♦  02, 9X IP2E 10.21  0XT02090 

250  FORMAT! 2 1H1PH070  DISSOCIATION.  I  DXT02095 

255  FORMAT! 2X14HI 61 .  02  ♦  HV,9X10H«  0  0,  10XIP2E10.2.2X1AH162.  '10XT02100 

10  ♦  HV.9X10H*  N  ♦  0.10X1P2E10 .2/2X14 HI 63 .  N02  HV.9XA0H-  NODXT02105 

2  ♦  0, 10X1 P2E 10. 2,2X1 4H1 64.  N20  ♦  HV.9X10H*  N2  ♦  0, 10X1P2E10.20XT02110 

3/2X14H165.  N20  ♦  HV.9X11H-  N  ♦  NO,9X1P2E10.2,2X14H166.  03  ♦  0XT02115 

4HV.9X11H"  0  ♦  02, 9X1P2E10.2 I  0XT02120 

260  F0RMATI2X33H147.  N  ♦  NO  ♦  M  »  N20  ♦  M, 10X1P2E10.2 1  0XT02125 

265  FORMAT! 18H0S0URCE  FUNCTION  *1P1E12. 5, 20H  ION  PAIRS/CC/SEC.  I  0XT02130 

270  F0RMATI6X9HN0  «■  HV.7X10H*  NO*  ♦  E,  7X1P2E10.2 , 8X9H02  ♦  HV, 7X100XT02135 

1H*  02*  ♦  6.7X1P2E10.2/6X9HO  ♦  HV,7X10H=  0*  *■  E,  7X IP2E10. 2, 8XDXT02140 

29HN2  ♦  HV,7X10H«  N2*  ♦  E.7X1P2E10.2  )  0XT02145 

275  FORMAT! 51 2X2HR! ,I3,2H)*IPE14.7)I  0XT02150 

280  FORMAT! 3! 2X2HR! ,I3,2HI«1PE14.7)I  0XT02155 

285  FORMAT! 2 X35H 148.  NO  ♦  02  ♦  NO  »  N02  *  NQ2,8X IP2E10. 21  DXT02160 

290  FORMAT! 1 HOI  0XT02165 


295  FORMAT! 1H0.41HRATES  AT  WHICH  REACTIONS  ARE  PROCEEDING. 
END 


0XT021 70 
DXT02175 


7.2.1. 1  Input  Parameters 

CARD  1  No  change. 

CARD  2  In  addition  to  EUBAR,  ELBAR,  and  DEL  there  is  a 
parameter  B4  which  is  the  maximum  allowable  per¬ 
centage  change  in  the  production  rate  per  step. 

Should  the  change  in  production  ovei?  the  next  inte¬ 
gration  step  attempt  to  exceed  this  amount^  the  main 
program  will  reduce  the  integratingjiincrement  until 
this  requirement  is  satisfied.  This<:control  is  neces¬ 
sary  to  prevent  any  difficulties  thatithe  code  might 
experience  in  performing  the  integration,  especially 
around  sunrise  and  sunset  when  thesrate  of  producr 
tion  of  ionization  is  undergoing  its  most  rapid  change. 
The  variable  ENDT  is  replaced  by  the  variable  ENDIIR. 
This  parameter  is  set  to  the  total  number  of  local 
hours  over  which  a  solution  is  to  be  (generated.  These 
hours  are  counted  continuously  frorrii  the  midnight  pro¬ 
ceeding  the  local  hour  at  which  the  computations  are 
started. 


CARD  3 


No  change 


CARD  4 


In  addition  to  ALT,  D,  D02,  LN2,  and  T  this  card 
contains  the  following  parameters: 


(1)  EAR  =  the  earth's  radius  in  centimeters. 

(2)  DECL  =  the  solar  declination  in  degrees, 

(3)  CLAT  =  the  latitude  in  degrees. 

(4)  BG  =  the  noontime  ionization  rate  of  09 
by  Lyman  beta, 

(5)  B7  =  the  noontime  ionization  rate  of  NO 
by  Lyman  alpha. 


(6)  B8  and  B9  =  the  constants  for  the  linear  approxi¬ 
mation^  the  photodissociation  rate  coefficient  for 
Og  .  This  approximation  is  written  in  the  form 
K  =  B8  -  B9*  (solar  zenith  angle).  The  linear  approxi¬ 
mation  is  determined  by  solvingithe  integral 


k(X)  =  N(02) 


A, 

/ 


<7d  (X) 


*0 


N(02)  ds 


\ 


/dX 


ll 


for  various  values  of  X 

120  km  B8=  4.2X10 


The  constants  are 
-5. 


39  =  2.88X10 


110  km  B8  =  3.6X10 


-6 


B9  =  4. 19X10 


-6 


CARDS  5-7  The  last  value  read  on  these  cards  (ATIME)  is  the  local 
hour  in  seconds  at  which  the  solution  is  to  start.. 

ATIME  =  0  is  midnight. 


CARD  8  No  change. 


The  photoionization  rate  tables,  as  computed  and  punched  externally  by  the 
photoionization  program,  are  read  following  CARD  8. 

7.2.  1.2  Output 

In  the  diurnal  variation  code  two  additional  parameters  appear  in  the  output. 

These  are  the  local  solar  time  in  hours  and  the  value  of  the  solar  zenith  angle  at 
this  time.  Because  of  the  inclusion  of  these  parameters  in  the  output,  another 
auxilliary  output  tape  is  required.  On  tape  G  are  written  the  time  in  seconds,  the 
concentrations  of  electrons,  O  ,  Og  ,  Og  ,  NOg  ,0  ,  Og  ,  Ng  ,  and  the  local  tvne  in 
hours.  Tape  1  contains  the  time  in  seconds,  the  concentrations  of  NO+  ,  NO  ,  N, 
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N02  ,  Og  ,  NgO  ,  O,  the  value  of  the  production  function  and  the  local  time  in 
hours.  Tape  4  is  the  added  auxiliary  tape  and  contains  the  times  in  seconds,  the 
concentrations  of  C>2  and  N2  ,  the  settings  of  the  KEY  switches,  the  local  time 
in  hours,  and  the  solar  zenith  angle  in  degrees. 

7.2. 1,3  The  Tolar  Zenith  Angle 

The  main  program  computes  the  angle  of  grazing  incidence  CIMAX  which  is 
the  angle  at  the  altitude  in  question  between  the  zenith  and  the  tangent  to  the  earth. 


where  R  is  the  radius  of  the  earth  and  A  is  the  altitude.  The  sun  is  assumed  to 
subtend  an  angle  of  0.  5°.  Therefore,  sunset  first  contact  occurs  when 


v  =  y  -0.25° 
A  •'max. 


and  last  contact  occurs  when 


v  =  v  +0.25°  . 

x  •'max 

The  solar  zenith  angle  x  is  defined  by 

cos  x  =  cos  <5cosd  cos  0  +  sin  d  sin  £  . 


From  this, the  time  in  seconds  corresponding  to  any  zenith  angle  x  is 


1.3751X104  . 


During  the  daytime  portion  of  the  solution  the  code  keeps  the  rate  coefficients 
for  photodetachment  and  photodissociatipn  at  fixed  constants  except  for  the  02 
photodissociation  which  is  computed  according  to  the  linear  approximation  pre¬ 
viously  discussed.  During  the  nighttime  portion  of  the  solution,  these  rate  con¬ 
stants  are  set  to  zero.  During  sunrise  and  sunset  the  rate  coefficients  for  phot- 
detachment  and  photodissociation  are  both  increased  or  decreased  according  to 
the  transmissivity  percentage  computed  by  the  subprogram  SUN, 

The  following  statements,  beginning  on  page  102,  are  a  listing  of  the  main 
program  DIURN. 


«UUUO‘JUUUUOUUUUOUUJUU  oou 
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18FTC  OIURN  LIST  DIUR0000 

DIURNAL  VARIATION  OF  ATMOSPHERIC  SPECIES  AT  ANY  LATITUDE.  D1URC005 

SOLUTION  OF  THE  REACTION  RATE  EQUATIONS  IN  THE  IONOSPHERE  FOR  15  SPEDIUROOIO 
IES  ANO  WITH  168  REACTIONS.  01UR0915 

KB  1 *0  FOR  LOG  OUTPUT.  DIUR0920 

KBl*l  FOR  DECIMAL  OUTPUT  DIUR0025 

K82*0  PRINTS  HISTORY  OF  THE  REACTIONS.  DIUR0030 

K82*t  DOES  NOT  PRINT  HISTORY  OF  THE  REACTIONS.  DIUR0035 

KB3-0  PRINTS  HISTORY  AFTER  EVERY  SUCCESSFUL  INTEGRATION.  DIUR0040 

KB3-1  PRINTS  HISTORY  ONCE  FOR  EACH  DECADE  OF  TIME.  DIUR0045 

KB4*0  HALTS  ON  ERROR.  DIUR0050 

KB4-1  READS  ANOTHER  POINT  CARO  AFTER  AN  ERROR.  DIUR0055 

IPL0T*0  OOES  NOT  MAKE  A  PLOTTER  TAPE.  DPIR0060 

IPLUT«1  MAKES  A  LOG  PLOTTER  TAPE.  DIUR0065 

BA-ALLOWABLE  PERCENTAGE  CHANGE  IN  PRODUCTION  PER  STEP.  DIUR0070 

86- NOONTIME  LYMAN  BETA  02  IONIZATION)  DIUR0C75 

87- NOONTIME  LYMAN  ALPHA  NO  IONIZATION.  DIUR0Q80 

B8  AND  B9  ARE  ’HE  CONSTANTS  FOR  02  PHOTODI SSOCI ATI  ON  APPROXIMAT IOND IUR0085 
RATE  COEFF IC IENT-B8-B9*CXI  DIUR0090 

UNITS  OF  INPUT  PARAMETERS  ARE  CGS.  0IUR0Q95 

0IURQ100 

COMMON  TREGI 159) »UN2 173),  KEY! 15) ,FORMI 15) ,REMVI 15 ) ,R( 200) iLKEYl 15DIUR0105 
l)  «U0(  73)  •  CON  1 200,  BEGIN!  17 )  .LOCK  115  )  .X02!  73)  ,  XOC  73 1 ,  XN2 1  73 ) ,  XNO '  0IUR01 10 
273) .XN6I73) .ANGLI73)  ,U02(73)  .COBUO)  DIUR0115 

COMMON  NUMB, 6UBAR ,EL8AR, D, 002,C IMAX ,0N2  >  T  >  PNE , PN0.P02. PO , PN2 . T0TA9IUR0120 
1L  t JAKE i JAM, 1  TER » ALT » LAM, TI ME,KB3, AT lHE>EARtDTIMEtCXItS IND ,COSD, JUGD1UR0125 
2,TIMEXtITEM,PX02 .PX0.PXN2. T0T0,T0TN,B6.B7, DEL, L INT » JACK, 12NT,K2NT,DIUR0130 


3J2NT.N2NT, FIRST, IFAIL,JIPi88,89  01UR0135 

DIMENSION  DONT 120 ) , T TREGI 20 ),T ITL£(12),HED(12),SIGM(30),IQI30)  DIUR0140 

DIMENSION  CRTN0(15),CRITN(15),A(168),B( 168) ,CI 160) ,C(  168 ) , ALFI 71 , ADIUR0145 


11(69), A2I69I.A3130) 

THE  FOLLOWING  DATA  ARE  THE  A 

,8, AND  C* 

S  FOR  THE 

RATE  CONSTANTS. 

DIUR0150 

DIUR0155 

DIUR0160 

DATA  Al/ 

0.44E*O0 

,1.406+00 

,0.046+00 

,0  .04E+00 

9.006-15 

3.60E-16, 

DIUR0165 

OIUR0170 

13.60E-16 

1. 006-13 

,1.006-13 

,1.006-13 

,1.006-13 

1. COE-13 

1. OOE-13, 

DIUR0175 

21.006-13 

1.006-13 

,1.316-15 

,1.006-19 

,1.006-17 

l. 006-17 

l.OOE-ll, 

D IUR0180 

31.00E-11 

1.006-31 

,1.006-31 

,1.406-31 

.5.80E-33 

1.99E-33 

6.006-28, 

DIUR0185 

44.006-29 

O.OOE-OO 

,6.006-05 

.9.00E-05 

,1.506-04 

1.006-24 

l.OOE-22, 

DIUR0190 

51. POE-22 

1.006-22 

,1.006-23 

,2.206-10 

,1.006-12 

1.006-12 

l.OOE-12, 

D IUR0195 

65.00E-07 

5.006-07 

,5.006-07 

,5.006-07 

.5.00E-07 

5.00E-07 

5.0CE-07, 

DIUR0200 

75.006-07 

5.00E-07 

,5.006-07 

,5.006-07 

,5 .00E-07 

5.00E-07 

5.006-07, 

DIUR0205 

85.006-07 

5.00E-07 

,1.006-23 

,1.006-23 

,l.0OE-23 

1.00E-23 

1.00Et23, 

DIUR0210 

91.006-23 

1. 006-23 

,1.006-23 

,1.006-23 

,l.OOE-23 

1.006-23 

1.006-11/ 

D IUR0215 

DATA  A2/ 

l.OOE-13 

,1.006-13 

,0.006-00 

,1 .OOE-13 

l.OOE-13 

l.OOE-ll, 

DIUR0220 

11.006-11 

1.00E-13 

,0.006-00 

,1.006-13 

a.OOE-13 

l. OOE-13 

l.OOE-13, 

0 IUR0225 

24.00E-H 

2. 406-11 

,0.006-00 

,0 .OOE-OO 

,8 .OOErlO 

1.006-12 

1.006-10, 

DIUR0230 

30.00E-00 

5.006-12 

,1.006-09 

.1.00E-09 

,1.006-12 

1.006-09 

1.00E-09, 

0IUR0235 

41.006-09 

1.006-09 

,1.006-16 

,1.006-18 

, O.OOE-OO 

O.OOE-OO 

O.COE-OO, 

DIUR0240 

50.00E-00 

0.006-90 

,1.006-15 

,1.006-29 

,1.006-29 

O.OOE-OO 

0.006-00, 

DIUR0245 

60.00E-00 

O.OOE-OO 

,0.006-00 

,  1 .00E-30 

,1  .00  E-30 

3.00E-12 

3.006-12, 

DIUR0250 

73.006-12 

1.006-11 

,1*806-10 

,1.00.E-11 

,2 .506-10 

l.OOE-ll 

1. 006-28, 

DIUR0255 

81.006-34 

1.006-17 

,1. COE-21 

il.OOE-21 

,2 .00  E-17 

1.00E-24 

6. 40  E-17, 

0 IUR0260 

91.006-24 

l. 006-22 

,1.006-22 

,5.006-32 

,2  .OOE-31 

5.00E-32 

3.206-35/ 

DIUR0265 

DATA  A3/ 

2.60E-35 

.6.50E-34 

,2.00E-3l 

.2.00E-33 

3.00E-33 

4.50E-33, 

0IUR0270 

13.006-30 

l. 006-33 

,1.006-33 

,0.006-00 

,1 . ICE-10 

7.10E-17 

3.006-11, 

D IUR0275 

22.006-10 

5.00E-1 1 

,5.00E-10 

,3.006-16 

,2  .50E-11 

2.006-13 

4.006-12, 

0IUR0280 

32.00E-11 

8.006-13 

,5.006-06 

,6.006-08 

,3  .OOE-03 

4.086-07 

5.58E-08, 

0IUR0285 

n  o  o 
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45.34E-03,l.00E-13,1.00E-13/  DSUR0290 

DATA  B/4*0.0,3*2.0,16*0.0,3*0.5,3*0.0,3*-1.0,5*-1.5,-0.7,3*0.0,16*DIUR0295 
1-0. 5. 1 l*- 1. 5 , 55*0,0,- 1 .0,10*0. 0,3*-0. 5, 3*0.0, -0.5, 3*0.0, -1.0, 4*0. 00 IUR0300 
2,1.5,4*0.0,1.5,13*0.0/  DIUR0305 

DATA  C/4*0. 0, 3*5. 1E3, 0.0, 4. 7E3.1 1*0.0, 7. 2E3, 47*0.0, 3E3, 2*0 .0,1E4, 70IUR0310 
1*0. 0, 5E3, 37*0. 0, 2E3, 3E3, 3*0.0, 3. 5E3, 0.0, 5E3,4E3,11*0.0,2*-9E2, 2*0. DIUR0315 
20»2E4,2*-9E2 ,0.0 , 3E3, IE4,0.0,3.75E4,1 .9E4.5.3E2 , 1.4E4, 1. 35E4, 2 .8E30I0R0320 


3,6.6E3,0.o,7E3,2*0.0,l.2E3,8*0.0/ 
INITIALIZATION  OF  SYSTEM  AND  INPUT. 


0IUR0325 
0IUR0330 
0 IUR0335 
0IUR0340 

REWIND  0  DIUR0345 

REWIND  1;  DIUR0350 

REWIND  3  DIUR0355 

REWIND  4  D IUR0360 

REWIND  8  D IUR0365 

CHI=1.0E-10  0IUR0370 

NOCOM-168  DIUR0375 

ENDE-0.0  DIUR0380 

ITER-30  D IUR0385 

KB6-1  DIUR0390 

5  WRITEI6.630)  DIUR0395 

READ! 5,675)  (TITLE(N) ,N=1, 12)  0IURP400 

WRITE! 6,680 )  <  TI TLE! N ) ,N-l « 12)  DIUR0405 

WRITE! 3. 760) (TITLE(N) ,N=1 .121  0IUR0410 

READ (5,625)  EU8AR ,ELBAR, DEL , 84 , ENOHR  DIUR0415 

READ! 5 ,640)  NOC  DIUR0420 

IF ! NOC  .EQ.  0)  CO  TO  30  DIUP.0425 

WRITE(6,75S)  D3UR0430 

00  25  J- 1 »NOC  D IUR0435 

REA0(5,725)  I,C(I),B(I),C(I),(AlF(N),N*1,7)  DIUR0440 

IF! I  .GT.  69)  GO  TO  10  D1UR0445 

A 1 C I ) *G( I )  0IUR0450 

GO  TO  20  D IUR0455 

10  IF! I  .GT.  138)  GO  TO  15  DIUR0460 

A2(  I— 691  -GII ).  DIUR0465 

GO  TO  20  DIUR0470 

15  A3! I— 138 ) =G( I )  DIUR0475 

20  WRITE (6, 72 5)  I ,G! I > , 8 1  I ) ,C! I ) , ! ALF I N) ,N»1 , 7)  DIUR0480 

25  CONTINUE  D1UR0A85 

30  REAO! 5,625)  ALT, 0,002 ,DN2, T, EAR.OECL, CLAT ,B6 , B7 ,88 ,B9  DIUR0490 

C  AT1ME  IS  TIME  OF  DAY  IN  SECONDS  AT  WHICH  THE  PROGRAM  WILL  START.  DIUR0495 
C  ATIME-0  IS  MIONIGHT.  DIURP500 

READ! 5,625)  (BEG  INI J) , Jrl , 15) , ATIME  DIUR0505 

READ! 5,745)  KB l, KB2,K83,KB4, 1  PLOT  DIUR0510 

READ! 5,740)  (HEO ( J) , J-l, 12 )  DIUR0515 

READ! 5,620) !U02! J ) ,U0( J) ,UN2 ( J ) • XNO! J ) ,XNE ! J ) , ANGL ! J ),X02(J),X0(J )D IUR0520 
1,XN2!J),SCRAY,J*1,73)  DIUR0525 

TIME-1. OE-6  D IUR0530 

KOUNT-O  0IUR0536 

MOUNT-O  DIUR0540 

KNT-0  0IUR0545 

JAKE-1  DIUR0550 

JACK-1  0IUR0555 

LAH-6  0IUR0560 

KLOT-O  0IUR0565 

ITEM-0  01UR0570 

JIP-l  0IUR0575 

JUG-1  DIUR0580 
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OAY«l.O 
N0AY'*0 
0T1HE*ATIME 
I  CO*  l 

TIMT*4.32E4 
00  35  J  * 1 1 150 
35  TR6G(J)*0,Q 
NUMB* 15 

L.«NT»II2*NUM3I*4) 

12NT-I  (3*NUMB)«-4) 

K2NT  * ( (4  *NUM8) *41 
J2NT*(  ( 5* NUMB)  <-41 
N2NT  » ( I 6* NUMB) *4 ) 

00  40  J* 1 .NUMB 
TTREGI J*3 ) *0.0 
LOCK! J)*0 
40  KEY ( J 1 *1 

0EC0*DECL*0. 01745329 
CLA0*CLAT*0. 01 745329 
COSO“COS(OECO)*COS(CLAOI 
S 1  NO* SIN  I OECO) *S I N I  CL  AO) 

C1MAX*3. 1415926-ARSIN(EAR/(EAR*ALT) J 
C  1HA0*57 .2957 79*C 1  MAX 
CIM 10* ARCOS (SI  NO-COSO  I 
C l MAP*ClMAX-4. 3633231 E-3 
C1MAT*CIMAX*4. 3633231 E-03 
I F I C IMAP  .GT.  Cl M 10)  GO  10  45 
IFICIMAT  ,LT.  CIHIO)  GO  TO  50 
KSKP*3 
GO  TO  55 
45  KSKP*1 
GO  TO  65 
50  KSKP*2 

C  TIM  IS  SECONOS  FROM  TENITH  TO  CIHAP  (NOON  TO  SUNSET  FIRST  CONTACT). 
55  TIM*ARCOS(  tCOSIC  I  MAP  1 -SI  NO ) /COSO )  *1.3  750987E4 
IF1KSKP  .EQ.  3)  GO  TO  60 

TOM*ARCOS( (COS (C 1  MAT )-SIND)/CO$OI ♦! .3750987E4 
OARK  *8  »64E4— 2  «o*  TOM 
60  S  ILLY*  TI M44 . 32E4 
65  CALL  INI TAL 

C  COMPUTE  RATE  CONSTANTS  IN  THE  FORM  K* AM T**B) ♦  EXPI -C/T) 

C 

K*l 

OG  70  J  *  1.69 
A(KI=A1( J) 

70  k*K*1 

00  75  J* 1 . 69 
A(K)*A2( J) 

75  K*K*1 

00  00  J*l , 30 
AIK) *A3t J ) 

00  K*K+1 

00  05  J*l .NOCQM 

85  CONI JI*AIJI*(T*»0| J) ) *EXP(-C( J  J / T I 
C 

00  90  J* l t4 
90  COBI J ) *CON( J ) 

M*1 61 

00  95  J*5» 10 


0IUR0585 
01.UR0590 
OIUR0595 
OIUR0600 
DIUR0605 
0 IUR0610 
D1UR0615 
0  IUR0620 
0IUR0625 
0IUR0630 
0IUR0635 
0IUR0640 
0IUR0645 
0IUR0650 
0IUR0655 
0 IUR0660 
0IUR0665 
0IUR0670 
0IUR0675 
DIURO60O 
OIURO605 
DIUR0690 
01UR0695 
OIUR0700 
0 JUR0705 
0IUR0710 
DIUR0715 
01UR0720 
0 IUR0725 
0IUR0730 
0 IUR0735 
DIUR0740 
DIUR0745 
D IUR0750 
0IUR0755 
DIUR0760 
0IUR0765 
0IUR0770 
0 IUR9775 
0IUR0780 
0 IUR0785 
0 IUR0790 
0 IUR0795 
0IUR0800 
0IUR0805 
OIURO01O 
0IUR0315 
DIUR0820 
DIUR0825 
0 IUR0830 
0IUR0835 
0IUR0840 
0IUR0845 
0IUR0850 
OIURO055 
DIUR0860 
0IUR0865 
0 IUR0870 
DIUR0875 


ooo 


105 


COB! J)*C0N(M) 

DIUR0880 

95 

H*M+1 

DIUR0885 

PREPARE  OUTPUT  TAPES  ANO  WRITE  RATE  CONSTANTS  AND  INITIAL 

0IUR0890 

CONDITIONS. 

0IUR0895 

DIUR0900 

WRITE16.635)  ALT.O.T 

0IUR0905 

UR  I TE( 6,650)  OECLtCLAT  tC IMAD 

0IUR0910 

WR I  TE! 6f  700) 

01UR0915 

I S- 1 

01UR0920 

00  100  J=l,15 

0IUR0925 

IT=lS«-5 

0 IUR0930 

WRITE! 6»  6851  ( I ,  A (11  , 1  =  1 S , I T ) 

OIUR0935 

WRITE! 6»  705)  ! I ,  CON! I  )  .  1  - 1  S  ,  1  T ) 

0 IUR0940 

I S* I S+6 

0 IUR0945 

100 

CONTINUE 

0IURO950 

WRITEI6.735) 

0 IUR0955 

00  105  J  =  1 , 13 

0IUR096O 

l T*I $+5 

D  IUR0965 

WR I TE l 6. 685!  ( I,  A (I) , I =  1 S, ! T I 

0IUR0970 

WRITE! 6, 70  51  (  T.CCN1 1  1 ,1=1  S,  ID 

0 IUR0975 

I S* I S+6 

DIUR098C 

105 

CONTINUE 

0IUR0985 

WR I TE ( 6. 645 ) 

0IUR0990 

AT IMXA  TI ME/3600. 0 

01UR0995 

IF  1  KB  1  .EQ.  01  GO  TO  110 

0IUR1000 

WRITE! 6, 7301  TREGI21 , 1 TREG 1 J> ,J=4,1U ,ATIM 

DIUR1095 

WRITE! LI  TREGI2) , ! TREG ( J 1 , J= 12 , 1 8 ) , TOTAL , AT  I M 

DIUR1010 

MOUNT =NGUNT*1 

DIUR1015 

GO  TO  145 

0IUR102O 

no 

M=NUM8*3 

0IUR1025 

00  125  J=2,M 

DIUR1930 

OEC=TREG! J) 

DIUR1035 

IFIOECI  580,115,120 

DIUR1040 

115 

D0NT1 J I =0.0 

DIUR1045 

GO  TO  12  5 

01UR1050 

120 

OONT ( J 1 ^ AL0G10 i DEC ) 

0IUR1055 

125 

CONTINUE 

0 lUR 1060 

IF  1  TOT  AL 1  580,130,135 

01UR1065 

130 

0PR00»0.0 

0 1 UR  1070 

GO  TO  140 

0IUR1975 

135 

OPROOXALOG 10  ('-TOTAL') 

0 1UR 1080 

140 

WRITE! 6, 730 1  00NTI2I ,<OONT!J) ,J=4,li) , AT IM 

DIUR1085 

WRITE!  l)  0GNTI2I , iOONTIJ) , J>12,1SI ,OPROD,ATIM 

OIUR1090 

M0UNT=M0UNTH 

0IUR1095 

145 

IF! TREG! 31  .LT.  1.8E3I  GO  TO  150 

0IUR1100 

TREGI31=9.0E2 

0IUR1105 

150 

GO  TO  (155,160, 2351, KSKP 

OIURlllO 

155 

TESS=8.46E4*0AY 

DIURl 1 15 

1FIATIME  .LT.  TESSI  GO  TO  265 

D I  UR  11 2n 

DAY=OAYU.O 

0IUR1125 

NOAY=NOAY+l 

0IUR1130 

GO  TO  26  5 

OIURU35 

160 

TESS-ATIME«-TREG!  31 

DIUP.1140 

IF!  TESS-SILLYJ  265,180,165 

0 1  UR  1145 

165 

GO  TO  11.70, 185, 185, 205,215, 2151, JIP 

0IUR1150 

17C 

TREG! 3 1= ( SILLY-AT I ME l 

DIUR1155 

175 

JIP“2 

DIUR1160 

GO  TO  265 

0IUR1165 

180 

GO  TO  (175, 175, 210, 210), JIP 

0IUR1170 

o  or- 


10G 


185 

CX I *ARCOSICOSO*COS <7. 27220526-5*  (AT IME*4.32E4) ) *SIND) 

OIUR1175 

IF <CX  I  .GT.  C I MAT  1  GO  10'  190 

0IUR1 180 

IF  <  TREGC3  »  .LT.  10.0)  GO  TO  265 

0IUR1185 

TREGI 3) *  10.0 

D1UR1190 

J  1  P*3 

0IUR1195 

GO  TO  265 

0IUR1200 

190 

SILLY*SILLY*DARK 

DIUR1205 

00  195  J*l,4 

DIUR1210 

195 

CONI  JI^.O 

01  UR  12 15 

00  200  J*161,166 

D1UR1220 

200 

CONIJI-O.O 

OIUR1225 

JIP-4 

0  IUR1230 

N0AY«NDAY*1 

DIUR1235 

CO  TO  265 

0IUR1240 

205 

TREGO  )*  I  $1 LLY-AT 1ME  ) 

0IUR1245 

210 

JIP*5 

DIUR1250 

GO  TO  265 

DIUR1255 

215, 

CX  I  *ARCOS (COSO*COS 17 . 27220  52£-5*(ATlME*4.32E4))*SIND) 

DIUR1260 

IF (CXI  .LT.  CIM4P)  GO  TO  220 

0IUR1265 

IF  I TREGt  3 )  .LT.  10.0)  GO  TO  265 

0IUR1270 

TREGO )  ■  10.0 

0IUR1275 

JIP«6 

DIUR1280 

GO  TO  265 

DIUR1285 

220 

SILLY*SILLY* ( 8.46 E4-D ARK ) 

01  UR  12 90 

JIP»1 

0IUR1295 

00  ,225  J*l,4 

01  UR  1300 

225 

CONI J l=A(JI*(T**B(J) )*EXP(-C(J)/T) 

0IUR1305 

00  230  J*161,166 

DIUR1310 

230 

CONI  J  1  *A  1 J  1  *(  T**B  I  ,J)  ),*EXP(-C  I J  )/T  J 

0IUR1315 

GO  TO  265 

DIUR1320 

235 

TESS*ATI  ME*  TREGI  3  ) 

OIUR1325 

I F ( TESS- SILLY)  265,245,240 

DIUR1330 

240 

GO  TO  1245, 255, 2501, JIP 

DIUR1335 

245 

TREG(3)*(SILLY-ATIm'E) 

DIUR134C 

JIP*2 

0  IuS.1'345 

GO  TO  265 

0IUR135O 

250 

CXI»ARCOS(CQSD*COSI7.2722052E-5*(ATINE*4.32E4)I*SIND) 

0IUR1355 

IFICX1  .LT.  CIMAP)  GO  TO  260 

0IUR1360 

IF  1 TREGI 3 )  .LT.  10.0)  GO  TO  265 

0IUR1365 

255 

TREGI 3 1 *10.0 

0IUR1370 

,JIP*3 

0IUR1375 

GO  TO  265 

D1UR1380 

260 

SILLY"j'LLY*8.46E4 

0IUR1385 

JIP*1 

DIUR1390 

265 

DO  270  K»  l «  NUM8 

0IUR1395 

I  FI  KEY!  K.  1-2 )  275,270,270 

DIUR1400 

2  TO 

CONTINUE 

0IUR1405 

CALL  ALGA 

0IUR1410 

TREG(3)»2.9*TREG(3I 

01 UR 14 15 

TREGI 2 ) *TREG( 2 1 *TREGI  3 ) 

0 1  UR  1420 

GO  TO  300 

DIUR1425 

DIUR1430 

INTEGRATION  OF  EQUATIONS  STARTS  HERE. 

0 IUR1435 
DIUR1440 

275 

CALL  INTEG 

D1UR1445 

GO  TOI 300, 280, 300 ,300 , 290,3001 , jjp 

0IUR1450 

280 

IF  I  ir-A  IL  )  285,300,285 

0IUR1455 

285 

JIP*1 

DIUR.1460 

GO  TO  300 

0 IUR1465 

10? 


290  IFIIFAIU  295,300,295 

295  JIP»4 

300  CALL  BALAN 

AT INE*A 1 IHE*(TREG< 31/2.0  I 

CH10a57.295779*CXI 

IF/.TREG(  3)  .NE .  2. PE-6)  GU  TO  305 

KLOTaKLOT>l 

IF(KLOT  .GT.  10|  GO  TO  310 
305  KLOTaO 

AT IMaA TIME/ 3600.0 
GO  TO  315 
310  MR  I Tt 1 6, 690 ) 

GO  TO  585 

315  IF(K81  .NE.  0)  GO  TO  320 
DD02*AL0G10 ( 002 • 

DON2aALOGlO(DN2) 

WRITE (4)  00NTI2I , 0002 ,00N2 , (KEY ( JI, Jal,NUMB), AT  IN, CHID 
GO  TO  325 

320  WRITE! 41  TREGI 2 ) , 002 ,DN2 , 1 K£ Y( J ) , J*1 , NUMBI , AT IM.CHID 
325  K0UNT=K0UNT*1 
00  330  Jal,NUNB 
330  LKEY I J )=KEY( J ) 

Ka JAKE 

GO  TO  (335, 570, 5751, K 
335  JACK=2 
KINDal 

CALL  SLOPIKINOJ 
KIN0=2 

CALL  SLOP  I  KINO  I 
N2«=L  INT 

00  340  -I  =1  .NUMB 

CRITNI I l«2.0*ABS( (TREG(N2I-TR6G( l*3l)/TREG(3) ) 
CRTN0in»REMVUI*TREG(I  +  3) 

N2»N2»1 
340  CONTINUE 

CRTNOI 10)»CRTN0( 1C)»PN0 
CRTNO(15)aCRTNO(l5)*PO 
DO  360  Jt-J, ,  NUMB 

I  F(  CR l TN ( J )  .GT.  l.OE-3)  GO  TO  345 
IF( ABS( 1 .0-( FORH( J ) /CRTNOI J) 1 1  .GT.  DEL)  GO  TO  350 
345  IF(CRTNOIJ)  .EQ.  C.O)  GO  TO  360 

IF((CRITN(J)/CRTNO(JJ)  .LT.  OEU  GO  TO  355 
350  LOCK! J I *0 
GO  TO  360 

355  LOCK(JI«LOCK{ J » -*■  1 
360  CONTINUE 

00  380  J«l,NUMB 
IF (KEY( J 1-3 1  365,380,380 
365  IF (LOCK( J 1-3)  370,375,375 
370  KEY( J) *1 
GO  TO  380 
375  KEY ( J I *2 
380  CONTINUE 
JACK*2 

00  3  85  J»l,NUHB> 

IF  (KEY!  J)  .GT.  2‘.)  GO  TO  385 
IF(TREG(J*3)  .GT.  TtSEGI J*3) )  GO  TO  385 
IF ( TREG( J*3 )  .GT,  CHI /  GO  TO  385 
KEY( J ) *3 


0IUR1470 

0IUR1475 

D IUR1480 

DIUR1485 

DIUR149C 

0IUR1495 

DIUR1500 

0IUR1505 

0IUR1510 

OIUR1515 

0IUR1520 

0IUR1525 

0IUR1530 

0IUR1535 

0IUR1540 

OIJR1545 

01  UR  1550 

0IUR1555 

0IUR1560 

0 1  UR  1 565 

0IUR1570 

0 1  UR  1 5  7  5 

0IUR1580 

01  UR  1585 

0IUR1590 

DIUR1595 

DIUR1600 

01  UR  160 5 

01UR161P 

01 UR  1 61 5 

D I UR  1620 

0IUR1625 

0IUR1630 

0IUR1635 

DIUR1640 

0IUR1645 

0IUR165O 

DIUR1655 

0IUR1660 

0IUR1665 

OIUR1670 

DIUR1675 

0 IUR1680 

0 IUR 1685 

DIUR1690 

0IJR1695 

0IUR1700 

OIUR1705 

DIUR1710 

DIUR1715, 

0 IUR172U' 

OIUR1725 

DIUR1730 

DIUR1735 

D1UR1740 

DIUR1745 

0IUR1750 

D1UR1755 

0 1UR1760 
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TREG!J*3)*0.0 
385  CON11NUE 

IFIPNE)  405, 390, *05 

390  IF  1 1 TREGI 4) /BEGIN  1 1 ) )-l .QE-3 1  395,405,405 
395  00  400  J*l,3 
TREG! J»3 )*0.0 
400  KFYIJ)*3 
405  00  410  J*1 , NUMB 
410  TTREG(J*3)*TREGIJ*3) 

OUTPUT  OF  RESULTS  STARTS  HERE. 

IFIKNT-50)  420,415,415 
415  WRITE16.645J 
RNT*0 

420  KNT*KNT* l 

AT!M«ATIME/3600.0 
1FIKB1.  .EO.  0)  GO  TO  425 

WRITE  (5, 730)  TREGO)  ,(  TREGI  Jl  ,J*4, 11)  ,  AT  IH 
WRITE! 1)  TREGI 21 , ( JREG ( J ) , J-12 . 18) , TOTAL , AT  I M 
GO  TO  460 
425.  K*NUMB*3 

00  440  .1*2, K 
DEC  * TREGI J) 

IFIOEC)  580,430,4- 
430  OONTI J ) *0.0 
GO  TO  440 

435  OONT ( J ) * AL0G10 I OEC ) 

440  CONTINUE 

IF! TOTAL)  580,445,450 
445  T0TL*0.0 
GO  TO  4S5 

450  T0TL"AL0G10<T0TAD 

455  WR I TE ! 6, 730 )  OONT 1 21 , ( OONT ! J ) , J*4 , l 1 ) , AT IM 

WRITEU)  OONT  !2)  .!  OONT  IJ),J*12,18)  ,TOTL ,  AT  IN 

460  CALL  PLOT! IPLOT) 

MOUNT “MOUNT* l 

4t5  I  FI ATIME-T IMT)  475,470,470 
470  TIMT*TIMT*4.32E4 
CALL  OAUXT 

DECISION  TO  CONTINUE  INTEGRATION  OR  STOP  IS  MADE  HERE. 

475  IF!TREG(2i  -LT.  1.0)  GO  TO  500 
GO  TO  1480,485), ICO 
480  1G0*2 

SAVE*TREG( 2 ) 

ICNT* 1 
GO  TO  500 

485  IF! ICNT  .GT.  50)  GO  TO  490 
ICNT»ICNT*1 
GO  TO  500 

490  IFI! TREGI2I-SAVEI  .GT.  1.0)  GO  TO  495 
WR 1 TEI 6,710  I 
GO  TO  585 
495  IG0*1 

500  IF  I TREGI 4)  .LT,  ENOE)  GO  TO  585 
505  I  FIAT  IK  .GT.  EN0HR5  GO  TO  585 


0IUR1765 
01UR1770 
P I UR 177 5 
DIUR1780 
0IUR1785 
0IUR1790 
01 UR  1795 
DIURISOO 
0IUR1805 
0IUR1810 
0IUR1815 
0IUR1820 
DIUR1825 
OIUR1830 
DIUR1835 
0IUR1840 
DIUR1845 
0  IURli350 
DIUR18S5 
DIUR1860 
DIUR1865 
OIUR1870 
DIUR1875 
0IUR1880 
01 UR 1885 
DIUR1890 
01UR1895 
DIUR1900 
DIUR1905 
01 UR 1910 
DIUR1915 
DIUR1920 
DIUR1925 
01  UR 19 30 
0 1 UR 1 935 
0IUR1940 
01 UR  194 5 
DIUR1950 
01 UR 195 5 
0IUR1960 
0IUR1965 
OIUR1970 
OIUR1975 
0 IUR 1980 
DIUR1985 
DIUR1990 
DIUR1995 
01 UR 2000 
0 IUR2005 
0IUR2010 
0  IUR2015 
DIUR2020 
0IUR2025 
0IUR2030 
0 IUR2035 
0 IUR2040 
0 IUR2945 
0IUR2050 
0IUR2055 


non  o  o  o  on 


*  V-  — 
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TEST  SYSTEM  CLOCK  FOR  IMMINENT  TIMER  OVERFLOW. 

510  CALL  CLOCK 

CALL  SL I TET ( 4 .K900FX I 
GO  TO  (515,5201 ,K00«FX 
515  ILK*2 

GO  TO  585 

520  BIG*AMAX1( TREG (4  I .TREGI5), TREGI6) , TREGI 7 » , TREGt 8 > I 
00  525  J.=  l  ,5 

IFIBIG  .EO.  TREGIJ+3II  GO  TO  530 
525  CONTINUE 

530  IF  I J-LAMI  535,540,535 
535  KEY! LAM) *  1 
JACK=1 
540  LAM* J 

KEY (LAM) =4 
STOT*TOTAL 

545  TREGI  21  =  TR£G(2  )  ♦  TREG 13 1 
CALL  PROOUC 

TREG(2)=TREG(2I-TRCGI3I 
IFITOTAL-STOT)  550a45,555 
550  RATIO*STOT/TOTAL 
GO  TO  560 

555  RATIO*TOTAL/STOT 
560  IFIRATIO-841  145,145,565 
565  TREGI 3)* TREG (31/2.0 
GO  TO  545 

ERROR  COMMENT  OUTPUTS. 

570  WRITE! 6,660 1  TREGI2I 
GO  TO  58? 

575  WRITE! 6, 665 1  TREGI2) 

GO  TO  585 
580  WR I  TGI  6,655) 

K=NUMB*3 

WR 1 TEI 6, 670 1  ( TREG I J I , J* 2, K) , TOT AL 
585  IFIKB4  .EQ.  II  GO  TO  590 
KB6=2 

TRANSFER  ALL  'RESULTS  TO  OUTPUT  TAPE  HERE. 

590  REWINO  1 
END  FILE  3 

IF  I  I  PLOT  .'HE.  II  GO  TO  600 
END  FILE  0 


0IUR2060 
0IUE-2065 
0IUR2070 
DIUR2075 
0 IUR2080 
0 IUR2085 
0IUR2090 
0IUR2095 
0IUR2100 
DIUR2105 
0JUR21 10 
DIUR2115 
0IUR2120 
DIUR2125 
0IUR2130 
DIUR2135 
0 IUR2140 
0IUR2145 
0IUR21 50 
DIUR2155 
0IUR2160 
DIUR2165 
0IUR2170 
0IUR2175 
0IUR2180 
DIUR2185 
DIUR2190 
0IUR2195 
0IUR2200 
0IUR2205 
0IUR221O 
OIUR2215 
OIUR2220 
OIUR2225 
OIUR223C 
OIUR2235 
0IUR2240 
DIUR2245 
DIUR2250 
0 IUR2255 
0 IUR2260 
OIUR2265 
0IUR2270 
0 IUR2275 
0IUR2280 
0IUR2285 


REWINO  8 
DO  595  K*l, ITEM 

READ! 81SIGMI 11,101 11 , I  SIGN! Jl, 101 J),J*10, 181 
WRITE«0,75C1SIGHI11,IQU), (SIGN! Jl, IQ  I J I , J* 10, 1 8) 
595  CONTINUE 
END  FILE  0 
REWINO  8 
600  KNT=0 

WR I TEI 6, 6951 
DO  605  K*l, MOUNT 

READ! 1 1  TREGI 2  I .(TREGI J1,J*12, 181 .TOTAL, AT IM 
WRITE  1 6, 730 1  TREG (2  I , (TREGI Jl, J»12, 18 1 , TOTAL , AT IM 
KHT=KNT*1 


DIUR2290 
0IUR2295 
D IUR2300 
D1UR2305 
0IUR2310 
DIUR2315 
DIUR2320 
D I  UR  2  3  2  5 
DIUR2330 
0 IUR2335 
DIUR2340 
0 IUR2345 
0 IUR2350 


IF ( KNT  .LT.  50)  GO  TO  605 
WRITE! 6»  695 ) 

KNT»0 

605  CONTINUE 
REWINO  1 
REWINO  4 
KNT°0 

-WR ITE!  6.  720) 

00  610  K-l.KOUNT 

REA0(4)  ?REGV2),002,0N2, (KEY! J) ,J*1 .NUMB ) , AT IN.CHIO 
WRITE  1 6, 71 5)  TREGI2) , 002 ,0N2 . ! KEY! J ) , J« 1 .NUMB) . AT IM.CHID 
KNT«KNT*1 

IF ( KNT  .LT.  50)  GO  TO  610 
WRITEI6.720) 

KNT-o 

610  CONTINUE 
REWIND  4 

GU  TO  (5.615)  » I'.B  6 
615  REWINO  3 
REWINO  0 
CALI.  EXIT 


DIUK2355 
0IUR2^60 
0IUR2365 
01 UR 2 3 70 
OIUR2375 
OIUR230O 
0 1UR2385 
0IUR2390 
0><jR23?5 
01.JK2400 
01 UR 240 5 
0!UR241^ 
01  UR 24 15 
01UR2429 
0IUR2425 
DIUR24.T0 
DIUR2435 
01UR2440 
0IUR2445 
DIJR2450 
OIUR2455 
0 IUR2460 
01UR2465 
DIUR2470 


620  FORMAT! 1P5E14. 7)  0IUR2465 

625  FORMAT  ( 1P6E12.5)  DIUR2470 

630  FORMAT (94HIS0LUT ICN  OF  THE  REACTION  RATE  EQUATIONS  WITH  15  SPECIES0IUR2475 
1  AND  168  REACTIONS  OIURNAL  VARIATION.  )  DIUR2480 

635  FORMAT ( 1 1HIALTITUDE  *1PE1L.4,4H  CM.  ,17H  TOTAL  DENSITY  =>  1PE12.  5, 1 50 IUR2485 
1H  -TEMPERATURE  *0Pf-7.2)  DIUR2490 

640-FORMAT  1 1 4 )  0IUR2495 

645  FORMAT! 131  HI  TIME  (SEC)  N!E)  /CC  N(O-)  /CC  N(Q2-)  /CC  NO IUR25CO 
1 ( 03" )  /CC  NIN02-I  /CC  N(0*»  /CC  N(02*)  /CC  M!N2*)  /CC  TIDIURZ505 
2ME ( HOUR)  )  DIUR2510 

650  FORMAT! 20H0S0LAR  DECLINATION  «1PE13.5.10H  OEGREES.  .6X10HLATITUDE  DIUR2515 

1  «PPF6. 2 . 10H  OEGREES.  »6X2frH*.NGLE  OF  GRAZING  INC  IOENCE  =  1PE13.  5, 10H3IUR2520 


2  OEGREES.  ) 


0IUR2525 


655  FORMAT! 65H0THE  PROGRAM  IN  TRYING  TO  GENERATE  THE  LOG  Of  A  NEGAT IVED IUR2530 


1  NUMBER'.  ) 


OIUR2535 


6/0  FORMAT I45H0THE  I NTERGRAT ING  MESH  IS  VANISHING  IN  INT  AT  1PE11.‘5.6HDIUR254D 


1  SEC.  ) 


0 IUR2545 


665  FORMAT I47H0THE  INTERGRATING  MESH  IS  VANISHING  IN  ALGA  AT  1PE1 1 .5.60IUR2550 
1H  SEC.  )  0IUR2555 

670  FORMAT! 1P10E10. 2)  0IUR2560 

675  FORMAT! 12A6)  0IUR2565 

680  FORMAT! 1H0. 12A6)  0IUR2570 

685  FORMAT! 1H0. (61 2X4H  A ( . I 3.2HI « 1PE 10 .3 ) ) )  DIUR2575 

690  FORMAT ( 43H  THE  INCREMENT  IS  CONSTANT  AT  1.0E-06  SEC.  )  0IUR2580 

695  FORMAT! 130HI  TIME  (SEC)  N(NO*)/CC  N(NO)/CC  N(N)  /CC  0IUR2585 

1N1NT2J/CC  N(03)  /CC  NIN20)  /CC  N(0)  /CC  PRODUCTION  TIM0IUR2590 
261  HOUR)  )  01UR2595 

700  FORMAT ( 22H0REACT I  ON  COEFFICIENTS)  DIUR2600 

705  FORMAT!  1H  ,  ( M2X4HC0Ni-jI 3, 2H)»  1PE10  .37  I )  0IUR2605 

710  FORMAT ( 60H  TIME  IS  NOT  INCREASING  RAPIDLY  ENOUGH  TO  ADVANCE  SOLUT IDIUR261P 
ION.  )  D1UR2615 

715  FORMAT! 1P3E13.5.15I4.1PE13.5.0PF11.5)  0IUR2620 

.'20  FORMAT (  1 21H1  TIME  (SEC)  02  DENSITY  N2  DENSITY  E  0-  02-  0301UR2625 
l-  N02-  0*  02*  N2*  NO*  NO  N  N02  03  N20  0  T I  ME (HOUR)  CHI  DIUR2630 

Z!  DIUR2o35 

725  FORMAT! I4»lPEl0.2tOPF5.l. 1PE10.2.7A6)  DIUR2640 

730  FORMAT! 1P19E13. 5)  DIUR2645 

735  FORMAT! IH1)  DIUR2650 

740  FORMAT! 12A6)  DIUR2655 

745  FORMAT! 5121  DIUR2660 

750  FORMAT! 6X1 1 ( A1 » I  5) )  0IUR2665 

755  FORMAT! IHO.20X.86HTH6  FOLLOWING  IS  A  LIST  OF  RATE  CONSTANT  CHANGE5DIUR2670 

l  FROM  THE  STND  LIST  USED  IN  THIS  RUN.  )  DIUR2673 

760  FORMAT!  1H1.12A6)  DIUR26)  ** 

DIUR261 
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7.  2.  2  THE  PHOTOIONIZATION  PRODUCTION  SUBROUTINE  PRODUC 

Upon  being  called  by  SLOP  or  the  main  program,  PRODUC  first  computes  the 
solar  zenith  angle  for  the  time  at  which  it  was  called.  Using  this  zenith  angle, 
the  subroutine  performs  a  table  look-up  in  the  photoionization  rate  tables  read 
into  the  computer  by  the  main  program.  If  the  computed  zenith  angle  is  not  a 
tabular  value,  linear  interpolations  are  performed  in  the  tables  to  obtain  the  proper 
production  rates  for  the  positive  ions. 

One-tenth  of  one  percent  of  the  noontime  production  rate  of  0„  by  L._  is 

4.  ^  r 

automatically  added  to  the  computed  production  rate  of  OA  .  One  percent  of  the 

J.  ^ 

noontime  production  rate  of  NO  by  L  is  always  added  to  the  production  rate 

JL  K 

of  NO  .  These  production  rates  are  added  in  order  to  allow  a  certain  amount  of 
these  radiations  to  scatter  into  the  nighttime  atmosphere. 

After  the  production  rates  for  alt  the  positive  ions  are  computed,  they  are 
summed  to  obtain  the  production  rate  of  the  electrons. 

The  following  statements  are  a  listing  of  this  subroutine. 


SIBFTC  PROOUC  Lt-AT;  PRODOOOO 

SUBROUTINE  PRODUC  PR0D0005 

THIS  SUBROUTINE  COMPUTES  THE  PRODUCTION  FROM  THE  Q  TABLES.  PR000010 

PRQD001 5> 

COMMON  TREGC150I  i,  «N2  (  73*  ,  KEYI  15 1,  FORM!  151  .REMV(15I,R(  200  » ,LK£Y<  15PR000020 
1 ) t  UOI 73 1 ,  CON ( 200' .BEGIN 1 171 »  LOCK! 15 1 »X021 73 J  »X0( 73) ,XN2( 73) « XNUIPR0D0025 
2  73 1 , XNE ( 73  J  « ANGL ( 73{ , U02 1 73 1 ,COB( 10  >  PR0D0030 

COMMON  NUMB, EUBAR , ELGAR, D, 002, CIMAX.0N2.T,  PNE,  PN0,P02,P0  ,PN2,  T0TAPR0D0035 
1L, JAKE, JAM, I  TER, ALT, LAM, TIME, KB3, AT IME, EAR, DUNE, CXI, SIND, COSO, JUGPR000040 
2, TIMEX,  I  TEM»PX02  ,PXO,F'XN2 ,  TOTO,  T0TN,66,  B7,DEL,L  INT  ,  JACK,.,  2NT,K2NT »PR000045 


3J2NT.N2NT, FIRST, I  FAIL, Jt P, R8 ,89 
TIMEX»DTIME  ♦TREGI2) 

CXI  =ARC0S(C0SD*C0S{7 .27220  52E-5*ITIMEX<-4.32E4))+SIND) 
DO  5  J*1 ,73 

IFI CXI— ANGL <  J 1 1  15,10,5 
5  CONTINUE 
10  P02*U02I J) 

P_0*U0»J) 

PN2«UN2( J) 

PX02=X02(J) 

PX0*X0(J) 

PXN2-XN2IJ) 
eN0*XN0(JJ*TREG(l3J 
GO  TO  20 

15  PART  =  (ANGLt  J-l  I-CXII  /  ( ANGL  I  J-l  J-ANGU  J) » 

P02**U02(  J  '  v  P4RT*(U02<J-1)-U02(JJ ) 

PO*UO  I  J- 1  f-P AR  V *  t  UOI  J- 1 )  -U0 1 J  n 
PN2»UN2( J-l I-PART* (UN2 I J-l I -UN2I  J 1 1 
PX02=X02 ( J-l ) -PART* ( X02( J-l J-X02I J ) 1 
PX0=X01J-1)-PART*IX0C  J-D-XOI JII 
PXN23XN2 (J-1J-PART*(XN2I J-1I-XN2I J J ) 

PN0=XN0( J-l )-PART*(XNQ<J-l)-XNO(  J ) ) 

PN0=PN0*TREG( 13) 

20  QT*( 1.0E-16*D)/I002*0N2) 

PN0*PN0+B7*1.0E-02 

P02*P02*C|T*D02*PX02*1  .0E-03*B6 

PN2=PN2*QT*DN2*PXN2 

P0=P0*PX0 

PNE*P02«-P0*PN2«7>N0 

T0TAL=PNE 

RETURN 

END 


PR0D0050 

PROD0055 

PROD0960 

PR0D0065 

PR0D0070 

PR0D0075 

PR0D0080 

PR0D0085 

PR000090 

PROD0O95 

PRODOIOC 

PROD0105 

PR0D0110 

PR0D0115 

PR000120 

PR0D0125 

PR0D0130 

PR0D0135 

PR000140 

PROD0145 

PK0D0150 

PR0D0155 

PR0D0160 

PROD0165 

PR0D0170 

PR0DO175 

PR0D0180 

PR0D0185 

PROD0190 

PR0D0195 

PROD0200 

PR0D0205 
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7. 2.  3  TI1E  CHARGE  BALANCE  SUBROUTINE  BALAN 

This  subroutine  computes  the  largest  *  "  re  species  from  charge  balance 

and  adjusts  the  02  and-  Nj  concentrations  U.  ure  conservation  of  O  and  N- 
atoms.  In  addition  to  this  it  also  calls  subroutii  SUN  if  the  solution  has  advanced 
into  a  sunrise  or  sunset  period.  Subroutine  SUN  returns  with  a  transmissivity  per¬ 
centage  by  which  subroutine  BALAN  multiplies  the  photodetachment  and  ph-to- 
dissociation  rate  coefficients.  The  solution  has  arrived  at  a  period  of  sunrise  or 
sunset  if  switch  JIP  is  on  three  or  six  respectively.  Switch  JIP  is  set  by  the 
main  program. 

The  following  statements  are  a  listing  of  this  subprogram. 


UBFTC  BALAN  LIST  BALNOOCO 

SUBROUTINE  BALAN  BALN0005 

COMMON  TREGI 150) .UN2I73) .  KEY! 15) ,  FORM! 15) ,REMV ( 15 ) , R J 200  I ,LKEYl 15BALN001C 
l ) »U0( 73 1 ,  CONI 200), BEGIN! 17), LOCK!  15 ) ,X02( 73  I , XOI 73 ) ,XN2 1  73) , XNOC BALN0015 
273 1  »  XNE I  73 ) » ANGL ( 73 ) ,UG2 I  73) ,C0B< 10)  BALN002C 

COMMON  NUMB, EUBAR.ELBAR. 0,002, Cl  MAX, DN2.T,  PNE, PNO, P02, PO , PN2, TOT ABALN0025 
IL, JAKE. JAM, I  TER. ALT, LAM, TIME, KB3, AT IME, EAR, OTIME, CXI, SIND, COSO, JUGBALN0930 
2, TIMEX. I TEM,PX02,PX0.PXN2, TOTO, TOTN.B6, B7 .DEL , L INT .JACK, I 2NT,K2NT,BALN0035 


3J2NT, N2NT,FIRST»lFAIL,JlP»B8,B9 


BALN0040 

_  SUH*TREGI9)  ♦TREGl  101+TREGI 11 H-TREGI 12  )  BALN0045 

GO  TO  (10, 15, 20, 25, 30, 35), LAM  BALN0050 

10  TREG  1 4 1  =  SUM-TREG (5)— TREG16)— TREGI7)— TREGI8)  BALN0055 

GO  TO  35  BALN0060 

15  TREG15I* SUM-TREG I4)-TREG(6)_TREG(7)— T REGIB )  BALN0065 

GO  TO  35  BALN0970 

20  TREG I  6 ) *SUM-TKEG (4 I-TREGI5 ) -TREG 1 7 )-T REGIS )  BALN0075 

GO  TO  35  BALN0080 

25  TREGI  7 )  * SUM- TREGI  4 1 -TREG 1 5 )  -TREG 1 6 ) -T REG!  8 )  BALN9085 

GO  TO  35  BALN0090 

30  TREG 1 8 ) ’SUM-TREG (4)-TREGI 5)-TREGl6)-TREGI 7 1  BALN0095 

35  002=1  lTOTO-TREGI5)-3.0*TREG(7)-rTREG(9 I-TREGI 12)-3.0*TREGt 15) -TREG I BALN0100 
V 161 -TREGI 17)-TREG( 18) ) /2 .0 ) -TREG 1 6 ] -T REGI8 1 - TREGI 10) -TREG 1 14)  BALN0105 

0N2=I( T0TN-TREG(8)-TREGI121-TREG(13)-TREGI14)-TREGI16) I/2.0J-TREGI BALN0110 


Hl)-tREG(17) 

TIMEX=OTIME  *TREGI2) 

CX I =ARCGS(C0S0*C0SI7 .2722052E-5*(TIMEX»4.32E4))*SIND) 
COBI  5)  =B8-B9*CXI 
IF  I  COB  15))  40,45,45 
40  COBI 5) *0.0 

45  GO  TO  165, 65, 50, 65, 65. SO), JIP 
50  FRACT=SUN(CXI , C I MAX) 

AT  *FRACT 
DO  55  J= 1 , 4 

55  CONI J ) =C0B( J ) AFRiCT 
N=  161 

00  60  J*5» 10 
CONI N) *COB I JJ  *FRACY 
60  N*N*1 
GO  TO  70 

65  CONI  161) =C0B(5J 
70  RETURN 
END 


BALN01 1 5 
BALN0120 
BALN0125 
BALN0130 
BALN0135 
BALN0140 
BAI.N0145 
BALN9150 
BALN0155 
BALN0160 
BALN0165 
BALN0170 
BALN0175 
8ALN0180 
BALNQ185 
BALN0190 
BALN0195 
BALN0200 
BALN0205 
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7.2.4  SUBROUTINE  SUN 

Being  given  the  value  of  the  solar  zenith  angle  and  the  value  of  CIMAX,  this 
subroutine  when  called  by  BALAN  computes  the  transmission  factor  for  use  in 
changing  the  rate  coefficients  for  photodetachment  and  photodissociation. 

The  following  statements  are  a  listing  of  the  FORTRAN  statements  for  this 
subroutine. 


ilBFTC  SUN  LIST 

FUNCTION  SUNtCHI , ALPHA) 

TO  COMPUTE  ETA  AS  A  FUNCTION  OF  CHI. 

DATA  GAMMA/4. 30332316-3/ 

X-ICHl-I ALPHA-GAMMA) I /GAMMA 
IF ( X )  5,10,10 
5  X-0 .0 
GO  TO  20 

10  IF ( X-2.0 )  20,20,15 
15  X-2.0 

20  THETA-ARCOSI (2.0*1 1 1 .C-XJ **2 )) -1 .0 ) 

IF(X-l.O)  30,25,25 
25  THETA-16. 28318531-THETA) 

30  A*(THETA/2.o)-I( 1 .0-X ) *SQRT((1 .0-C0S1 THETA) ) /2.0 ) ) 
SUN-1. O-IA/3. 1415526) 

IF ( SUN  .LT.  0.0)  GO  TO  40 
IF  ( SUN  .GT.  1.0)  GO  TO  35 
GO  TO  45 
35  SUN-1.0 
GO  TO  45 
40  SUN-0. 0 
45  RETURN 
END 


SUN00000 
SUN00005 
SUNOOOIO 
SUN00015 
SUN  *’0020 
SUNO0O25 
SUN00030 
SUN00035 
SUN00040 
SUN0O045 
SUN00050 
SUNOCO 5 5 
SUN00060 
SUN00065 
SUN00070 
SUN00075 
SUN00080 
SUN00085 
SUN00090 
SUN00095 
SUN00100 
SUN00105 
SUN00110 
SUN00115 
SUN00120 


■  *  - 
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Appendix  A 

The  Photoionization  Production  Function  Program 


As  discussed  in  Section  5. 1,  there  is  a  separate  code  for  the  computation  of 
the  photoionization  production  function- tables.  This  code  consists  of  three  pro¬ 
grams;  the  main  program,  subroutine  PRODUC,  and  subroutine  COLUM,  The 
output  from  this  code  is  alisting  and. a  deck  of  145  cards  containing  the  number  of 
ions-pf  oduced  as  a  function  of  the  zenith  angle  for  a  given  altitude  and  geographic 
location.  This  is  the  deck  of  cards  that  is  required  as  part  of  the  input  to  the 
diurnal  variation  code. 

The  main  program  simply  controls  the  input  and  output  of  this  code.  A  con¬ 
siderable  amount  of  input  is  required. in  order  to  compute  the  photoionization 
functions  for  each  of  the  species  ionized.  This  information  is  read  into  the  com¬ 
puter  by  Cards  Nos.  40  through  100  of  the  main  program.  The  input  consists  of 
the  photoionization  and  absorption  cross  sections  for  O,  Og  ,  and  Ng  ;  the  flux 
in  photons /cm2 /sec  of  the  incident  solar  radiation  at  the  top  of  the  atmosphere; 
the  hard  X-ray  flux  and  absorption  cross  sections  for  air  for  these  X-rays;  and 

O 

the  neutral  atmosphere  profiles  from  0  to  520  km  of  O,  Oj  ,  and  Ng  .  These 
parameters,  as  taken  from  Tables  1  and  2,  are  read  in  the  following  order  into 
the  designated  regions. 


SP02  -  45  values  of  the  photoionization  cross  section  of  00  . 

S02  =  45  values  of  the  total  absorption  cross  section  of  09  . 

SPO  =  34  values  of  the  photoionization  cross  section  of  O  . 

SO  =  34  values  of  the  total  absorption  cross  section  of  O  . 

SPN2  =  24  values  of  the  photoioni2ation  cross  section  of  Ng  . 

SN2  =  24  values  of  the  total  absorption  cross  section  of  N2  . 

2 

PHI  =  values  of  the  solar  flux  in  photons /cm  /sec  broken  down 
into  24  lines  or  bands. 

RAD  =  the  X-ray  flux  at  2,  4,  and  8 A. 

ABC  =  absorption  cross  section  for  air  at  2,4,  and  8A. 

These  parameters  are  punched  on  cards  in  FORMAT  (1P6E12.  5): 

3 

CONO  =  the  -height  profile  of  O  in  number /cm  at  every  10  km. 

Q 

CON02  =  the  height  profile  of  02  in  number /cm  at  every  10  km. 

O 

CONN2  -  the  height  profile  of  N2  in  number /cm'  at  every  10  km. 

The  last  three  parameters  are  punched  on. cards  in  FORMAT  (1P9E8.2). 

The  main  program  sets  up  the  BK  region  with  values  of  altitude  in  10  km  in¬ 
crements  from  0  to  520  km  for  ease  of  table  look-up  of  required  concentrations. 

The  concentrations  as  read  into  the  computer  are  converted  into  the  corresponding 
common  logarithms  since  it  is  more  realistic  to  linearly  interpolate  the  logs  of  the 
densities  rather  than  the  concentrations  themselves  whenever  a  nontabular  value 
is  required. 

After  all  of  these  basic  parameters  are  read  into  the  computer,  the  parameters 
of  the  altitude  and  the  geographic  location  are  read  in.  Each  altitude  card  is  pro¬ 
ceeded  by  a  title  card  on  which  72  columns  of  hollor ith  information  may  be  punched. 
The  information  on  this  title  card  is  punched  out  on  a  heading  card  preceeding  the 
cards  containing  the  photoionization  functions.  The  second  card  of  this  set  of  two 
contains  the  following  parameters  punched  in  FORMAT  (1P6E12.5). 

II1TE  =  altitude  in  km  at  which  the  functions  arc  required. 

2 

EPSI  =  the  Lrt  flux  at  the  top  of  the  atmosphere  in  ergs/cm  /sec. 

EAR  =  radius  of  the  earth  in  km. 

DECL  =  solar  declination  in  degrees. 

CLAT  -  latitude  in  degrees. 
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The  printed  output  consists  of  the  following: 

a)  t  he  altitude,  solar  declination,  and  latitude; 

b)  the  solar  zenith  angle  and  the  number  of  seconds  after  noon, 
corresponding  to  this  zenith  angle; 

520  520  520  520 

c)  f  Mdl,  f  N(02)dl,  C  N(N2)dl,  and  C  N(0)dl  ; 

z  z  *^z 

d)  the  production  rate  of  02  ,  O  ,  and  N2  by  X-rays  in  the 
wavelength  region  <170A  and  the  rate  coefficient  for  the 
ionization  of  NO  by  La ; 

e)  the  production  rate  of  02  ,  O  ,  and  by  UV  at  wavelengths  >  170A; 

f)  the  production  rate  of  02  and  N2  by  cosmic  rays;  and 

g)  the  total  production  rates  by  X-rays,  UV,  and  cosmic  rays. 

The  punched  output  consists  of  the  following: 

a)  a  title  card  which  is  a  duplicate  of  the  title  card  read  into 
the  computer;  and. 


b)  a  deck  of  145  cards  containing  the  production  functions. 

There  are  two  cards  for  one  set  of  values  of  these  functions.  A  set  is  computed 
for  every  ten  minutes  from  noon  to  midnight.  It  is  assumed  that  the  values  from 
midnight  to  noon  are  the  same  as  these. 

The  parameters  which  are  punched  in  FORMAT  (1P5E14. 7, 2X,  13, 2X,  13)  are 
as  follows: 

a)  SQ2  =  total  UV  production  rate  of  02  ; 

b)  SQO  =  total  UV  production-mate  of  0+  ; 

c)  SQN2  =  total  UV  production  rate  of  Ng  ; 

d)  QNO  =  rate  coefficient  for  production  of  NO  by  ionization 
of  NO  by  La ; 

e)  WHOLE  =  total  production  rate  of  electrons  except  for  La  ionization; 

f)  IIHTE  =  altitude  of  computations; 

g)  KARDS  =  card  sequence  number; 


h)  Clir  -  solar  zenith  angle; 

i)  SX02  =  production  rate  of  Og  by  X-rays; 

j)  SXO  =  production  rate  of  0+  by  X-rays; 
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k)  SNX2  *  production  rate  of  Ng  by  X-rays;  and, 

l)  SCRAY  =  total  cosmic  ray  production. 


The  following  statements,  beginning  on  page  A5,  are  a  listing  of  the  main 
program. 

Subroutine  FRODUC  computes  the  actual  production  rate  of  each  of  the  species 
using  the  input  data  and  the  equations  derived  in  Section  5. 1,  The  following  state¬ 
ments,  beginning  on  page  A 7  ,  are  a  listing  of  this  code. 

o 

Subroutine  COLUM  computes  the  number  of  particles  in  a  cm  column  along 
a  ray  path  at  a  given  solar  zenith  angle  and  extending  from  the  height  z  to  520  km. 
An  upper  limit  of  the  520  km  was  chosen  because  for  paths  that  extend  down  to  the 
D  and  E  regions  particle  concentrations  above  520  km  do  not  contribute  significantly 
to  the  total  integral.  The  subroutine  exits  with  the  values  of  the  following  integrals 
in  the  corresponding  locations. 


DEPTH 

depo2 


DEPO 


DEPN2 


■f 

-f* 


-  I M  dl 
^i(02)  dl 
'  N(O)  dl 


N(N2)  dl 


The  following  statements,  beginning  on  page  A9,  are  a  listing  of  the  FORTRAN 
statements  for  this  subroutine. 
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H8FTC  MAIN  LIST  HAIN9000 

C  PHOTOIONIZATION  SOURCE  FUNCTION  MA1N07C5 

COMMON  SP02K5I  ,  S02  ( 45 1 ,  SPOI 45  I ,  SOI  *5  )  ,SPN2  ( 45)  t  SN2(  45) ,  PHI  (  24  ) ,«  AMAIN^I O' 
10(3) ,Q02(27) ,00(27) ,QN2( 27) ,ABC( 3  I ,BK  ( 150) ,CONT( 150) ,CUN02( 150  )  ,COMA IN001 5 
2NN2( 150) ,CONO( 150) ,C0NTL(150I .C0NQ2LI 150 > ,C0NN2L( l 50 ) ,CONOL( 150)  MAIN0020 
COMMON  DEP02 »0£PN2»0EPTH«SQ02»S')0,SQN2,  QNO, C02, CN2  , EPS  I ,  R  ,  Ml  TE ,CH IMAIN0025 


1 ,CIHINi0O2,0N2 ,D0,0»DN0,EAR,SXCX*SX0, SXN2 .KLAW.DEPO 
DIMENSION  T I TLE ( 12 ) 

READ(5»85)(SPQ2(J)»J*l»45) 

R6A0I5 ,85) (S02(J),J*l,45) 

READ! 5,85) 1 SPO(  J  I  ,J*12,45) 

READ ( 5 «  85 ) ( SOI J ),J*12,45 ) 

READ! 5, 85 ) (SPN2( J) ,J*22,45) 

READ! 5 ,85 ) ( SN2 ( J I , J*1 ,45 ) 

READ! 5, 85) (PHI ( JI.J-1,24) 

REA0(5,85)(RAD(J),J»1,3) 

READ! 5. 85) I  ABC ( J ) , J*1 , 3) 

READ (5, 65) (CONO( J ) , J*l ,52) 

REAOI 5 ,65 ) (C0N02 ( Ji ,  J*l,  52  ) 

READ ( 5,65 ) (C0NN2 I J) , J*1 , 52) 

BK( 1 1*0.0 
00  5  J*2«  e2 
5  BK< Ji=BK( J-1)*10.C 
DO  10  J«l,52 

10  CONTI J)*C0N0(J)»C0NQ2( J)*C0NN2( J) 

00  15  J*1 ,52 

CONTlll  J)*AL0G10( CONTI  J)) 

CONOL ( J ) *ALOGIO(CONO( J ) ) 

C0N02L ( J ) * ALGG10 ( C0N02 ( J 1 1 
15  C0NN2L ( J ) *AL0G10 ( CQNN24  J ) ) 

20  REA0I5»80)(TITLE(J),J*1«12) 

REA0(5,85)HlTE.ePSI.8,EAR,DECL.CLAT 
IF(HITE)  60,60,25 
25  WRITE(6,70)HITE,0ECL«CLAT 
KOUNT*0 
K4R0S-0 
IHI T6*Hl IE 

WRITE! 7, 808  I TI TLE ( J ) , J*1 , 1 2 ) 

DO  30  J*l , 51 
IF ( HI TE— BK ( J ) )  35,35,30 
30  CONTINUE 

35  RATY*(HITE-BK( J-l J 1/10.0 

DO’.  =10.0**(C0N02L  ( J-l) ♦RATY*(C0N02L( J  )-C0N02L(  J-l )  )) 
Di>2*lO.O**(CONN2L  ( J-l  )-»RATY4(C0NN2l(  J  )-C0NN2L(  J-l)  ) ) 
00*10.0**1 CONOL (J-l) +RATY*( CONOL (J)-CONOL( J-l) I  I 
D«10.0**(C0NTL(J-1 )*RATY*(CONTK  JI-CONTK  J-lf » I 
0ECR=0ECL*0. 01745329 
CLAR*ClAT*0. 01 745329 
COSO=COS  IOECR)*COS  (CLAR) 

SIND*SIN  (DECR) *S1N  (CLAR) 

TYM*0.0 

CIMIN=3. !415926-ARSIN(EAR/(EARtHlTE)) 

40  CHI=ARCOS(COSD*COS  (7. 2722052E-5*TYM) >SIND) 

CHI  0*5  7. 295779*CH I 
WR!TE(6,75)CHI0,TYM 
CALL  PROOUC 

WRITE (6,1 10 )OEPTH,OEP02,DEPN2,DEPO 

SXRAY*SX02*SXN2«-SX0 

SUV‘>SQO2*S0O*SQN2 


MAIN0030 

MAIN0035 

MAIN0040 

MAIN0045 

MAIN0050 

MAIN0055 

MAIN0060 

MAIN0065 

MAIN0070 

MAIN0075 

MAIN0080 

MAIN0085 

MAIN0090 

MAIN0095 

MAINOIOO 

MAIN0105 

MAIN01 10 

MAIN0115 

MAIN0120 

MAIN0125 

MAI NO 130 

MAIN0135 

MAIN0140 

MAIN0145 

MAIN0150 

MAIN01 55 

MA1N0160 

MAIN0165 

MAIN0170 

MAIN0175 

MAIN0180 

MAIN0185 

MAIN0190 

MAIN0195 

MAIN0200 

MAIN0205 

MAIN0210 

MAIN0215 

MAIN0220 

MA1N0225 

MAIN0230 

MAIN0235 

MAIN0240 

MAIN0245 

MAIN0250 

MAIN0255 

MAIN0260 

MAIN0265 

MAIN0270 

MAIN0275 

N4IN0280 

:1AIN0285 

MAIN0290 


{ 
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SCRAY«C02*CN2  HAIN0295 

HHOLE«SXRAY*SUV»SCRAY  MAIN0300 

WRITE! 6,901 SX02* SX0tSXN2  >QNO  MA1N0305 

URITE(6,95)SQ02,SC0tSQN2  MAIN031C= 

WRlTE(6*ir*5)C02*CN2  MAIN0315 

MR  l  TE! 6vl00 1  SX RAY, SUV , SCRAY  .WHOLE  M A IN0320 

WRITEtT, 115)  SQ02.SU0,  SUN2 . QNO« WHOLE. IHiTE. KAROS  MAIN0325 

KAR0S«KAR0S»1  MAIN0330 

WRITEI7.115)  CHI, SX02, SXO, SXN2, SCRAY, IHITE, KAROS  HAIN0335 

KAR05»KARDS*l  NAIN0340 

KOUNT  *K0UNT*8  MAIN0345 

IF!K0UNT— 56)  50,45,45  MAIN0350 

45  KOUNT-O  HA1N0355 

tfRJTE!6,70)HITE,0ECL,CLAT  MAIN0360 

50  IFIBI  60,55,20  MAIN0365 

55  TYM«TYM»6.0E2  MAIN0370 

IE( TVM-4.32E4I  40,40,20  MAIN0375 

60  CALL  EXIT  MAIN0380 

65  FORMAT! 1P9E8.2I  KAIN0385 

70  FORMAT! 13H1  ALTI7U0E  -1PE13.5.4H  CM. .6X19HS0LAR  DECLINATION  »1PE1HAIN0390 
13.5, 10H  DEGREES.  .6X10HLATITU0E  «1P£13. 5, 10H  DEGREES  1  MAIN0395 

75  FORMAT!  1  5H0ZEN IT-H  ANGLE  »F7.2,10H  OEGREES.  ,18H  TIME  AFTER  NOON  *,MAIN0400 
11PE11.3.6H  SEC.  1  MAIN0405 

80  FORMAT! 12A6I  MAJN04I0 

85  FORMAT!  1P6E12. 51  MAI<.0415 

90  FORMAT! 1H  .15H02*  FROM  XRAYS-1 PE12.5, 3X, 14H0»  FROM  XRAYS* 1PE 12. 5, 3MAIN0420 
1X.15HN2*  FROM  XRA YS»1 PE12. 5.3X.21HNO*  COEFFICIENT  «1PE12.5»  MAIN0425 
95  FORMAT  1 1H  .15H02*  FROM.UV  *IPE 12 . 5, 3X , 14HG*  FROM  UV  » 1PE12. 5, 3MA IN0430 
1X.15HN2*  FROM  UV  *IPE12.,5)  MAIN0435 

100  FORMAT I 17H  XRAY  ELECTRONS  »1PE12.5,17H  UV  ELECTRONS  «1PE12.5,25HMAIN0440 
1  COSMIC  RAY  ELECTRONS  «IPE12.5,20H  TOTAL  ELECTRONS  -1PE12.5)  MAIN0445 
105  FORMAT  1 16H  02»  COSMIC  RAY«IPE12.5,32X15HN2*  COSMIC  RAY-1PE12. 5)  MAIN0450 
110  FORMAT! 18H0  TOTAL  INTEGRAL  »1PE13.5,14H  02  INTEGRAL  »E13.5,14H  N2  MAIN0455 
1INTEGRAL  »G13. 5, 13H  '0  INTEGRAL  «El3.5j'i  MAIN046C' 

115  FORMAT! 1PSE14.7,2X,I3,2X,I3I  MAIN0465 

END  MAIN0470 


non 
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4I8FTC  PROOUC  LIST 

SUBROUT I NE  PROOUC 

PH0T0IN0IZAT10N  PRODUCTION  FUNCTION 


PROOOOOO 
PRQD00O5 
PRO 0*9 10 
PR000015 
PR00OO20 

COMMON  SP02 145) , 502(45) » SPQI45  > «  SO  1 45 )  , SPN£( 45) »  SN2(  45) »  PHI(  24)  ,R  APR000025 
10(3 ) ,002(27 ) *QQ( 27) ,QN2(  27)  ,  ABC(  3 ) , BK(15P) ,CONT ( 150) ,C0N02( 1 50) .COPR000030 
2NN2I150) tCONOI 150) ,CONTL(150) .C0N02LI 150 ) .C0NN2LI 150 ) .CONOLI 150)  PR000035 

COMMON  0EP02,0EPN2 ,0£PYH,SQ02, SQO,  SQN2, QN0.C02.CN2.EPS I »  R«  HITE tCHIPR000040 


1 

tCIMIN.002  ,0N2 ,OOtO,DNO,EAR, SX02 ,SX0*SXN2 .KL AW, OEPO 

PROD0045 

DIMENSION  POWERI45) 

PR0D0050 

00  5  J*l,27 

PROOC055 

Q02( Jl*0.0 

PR000060 

001  J)*0.0 

PR000065 

5 

QN2( J)*0.0 

PRODOOTO 

S002*0«0 

PR0D0075 

SQO=0.0 

FR000080 

SQN2-0.0 

PR000085 

0N0»0.0 

PRGD0090 

SX02*0.0 

PR000095 

SXN2“0.0 

PRODO 100 

SX0*0.0 

PR000105 

IF( CHI-C 1M IN )  10,10,130 

PR000110 

10 

CALL  COLUM 

PR000115 

00  15  J*l,45 

PR0D0120 

15 

POWER! JI*EXP' I-OEPO2*S02 I J )-OEPO*SO( J )-DEPN2*SN2l  J ) ) 

PR000125 

DO  20  J*l,6 

PR0D0130 

20 

0021 J)«SP02IJ)*002*PHI (J)*P0WER(J) 

PR0D0135 

K*7 

PR0D0140 

K1*U 

PR000145 

K2*l 

PR000150 

DO  50  J»7,«J 

PRoOOl 55 

25 

PAF,T1*SP02I K )  *002 ♦PHI  I  J) 

PRODO 160 

PART2*SP0(KI*00»PHI(J) 

PR000165 

Q02(J)*002(JI*( PARTI* POWER  IK)) 

PRODO 170 

001  J)«00(J./4(PART24P0WER!K»  ) 

PR000175 

IF  ( K-K 1 1  30,35,35 

PRODO 180 

30 

K*M-1 

PR0D0185 

GO  TO  25 

PRODO.)  90 

35 

K*K*1 

PR000195 

GO  TO  (40, 45, 55), K2 

PR0D0200 

40 

K1  *16 

PR0D0205 

K2*2 

PROD0210 

GO  TO  50 

PR000215 

45 

Kl*21 

PR000220 

K2*3 

PR000225 

50 

CONTINUE 

PR0D0230 

55 

Kl*24 

PR000235 

K2*l 

PR000240 

DO  80  J*10,ll 

PR0D0245 

60 

PAR  T1*SP02 (K)*002*PHI ( J) 

PP0D0250 

PART2*SP0( K ) *00*PHI ( J ) 

PA0D0255 

PART3*SPN2 (K)*0N2*PHI (J) 

PR000260 

Q02(J)*002(J)MPARTl*P0WER(K)) 

PR0D0265 

00( J ) *Q0( J ) ♦ (PART2*P0WER(K) ) 

PR000270 

QN2 ( J ) *QN2 I  J )  ♦  ( P ART3*P0WER (K) ) 

PR000275 

IF(K-Kl)  65,70,70 

PRODO 280 

65 

K*K*1 

PRQ00285 

GO  TO  60 

PR0D0290 
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70  K*K»1 

GO  TO  (75,80),K2 
75  Kl-27 
K2*2 

30  CONTINUE 

(502 (  12 ) *SP02 (28) *002*PHI  (12)*P0wER(K) 

Q0( 12l*SPO[28)*DG*PHI(12>«rOWEA(K) 

QN2 ( 12 )  *SPN2 (281 *0N2*PHI (12)*P0WER(K) 

K*29 

Kl*31 

K2*l 

00  105  J»13 *  14 
85  PARTt*SP02(M*002*PHI  (  J) 

'i?ART2»SP0(KI*00*PHI  t  J ) 

>PART3*SPN2(KI*00«PHI ( Jl 
002  ( J )  *002  U )  ♦  ( PA- ,,  1  *  POWER  IK)) 

SS7(  J  )  *00( Jl ♦(PART2*P0WER(K)  I 
■<JN2l  J )  *0N2( J)» 1PART3*P0WER(K)  I 
IHK-Kll  90,95,95 
90  K*K  ♦  l 
GO  TO  85 
95'  K*K*l 

GO  TO  ( 100 , 105 ) , K2 
100  Kl *34 
K2*2 

105  CONTINUE 

002  < 15 )*SP02C  35) *002*PHl (15)*P0WER(Kt 
OOC 15 ) *SP0(  35)*OQ*PHI  ( 15)*P0WERi.K) 

0N2(  15I*SPN2  135)  *00*PH  1(15  )*POW£R(  .K) 

Q02<16>* (D02*PHI<  16 )  I  *  ( SP02 1 36 )  *POWE!S  1 36 )  ♦SP02 1  37»  *POWERI  37)  ) 
00(16) *( 00*PHI (16))*(3P0(36) *POWER (36I*3P0(37)*P0WER(37) ) 

0N2  ( 161 *0N2*PHI ( 16l*(  SPN2( 36) »P0WER(36) t$PN2( 37  )*P0WER( 37  )  ) 
K*38 

00  110  J-17,24 

Q02( J)*SP02(K) *D02*PHI (JI*POWER(K) 

00 ( J 1  *  SPOC  K ) *QO*PHI < J ) *POWERi  K ) 

0N2( J)*SPN2(K)*DN2*PHl IJJ*POWER(K> 

110  K*K*1 
L*1 

00  115  J*25»27 

Q02(J)-D02*RAD(U*EXP  (-lOEPTHAABCd.)  )) 

00( J)»DO*RAO(L )*0.75*EXP  ( - (DEPTH *ABC ( L) ) I 
0N2 ( J ) »DN2*RA0( L ) *6XP  {-(DEPTH*ABC(L) )) 

L*L*1 

115  CONTINUE 

00  120  J*1 , 1 8 

SQ02*SQ02+Q02 1 3) 

S0N2*SQN2*QN2( J) 

120  S0O*SQOr-OO(J) 

00  125  J*19,27 
SX02*SX02*002(  J) 

SXN2»SXN2*QN2(  J) 

125  SX0*SX0»(J0{  J) 

QNO*EPSI *1, 34E-7*EXP  <-8.5E-21*DEP02) 

130^  QT*(l,0E-16*0)/( DOZ+ONZI 
C02»(U*002 
CN2*0T*0N2 
135  RETURN 
END 


PR0D0295 
PR000300 
PR000305 
PROOoMO 
PR000315 
PR000320 
PR000325 
PR000330 
PR000335 
PR0D0340' 
PR0D0345 
PR000350 
PR000355 
PR0D0360 
PR000365 
PR000370 
9R000375 
PR000380 
PR000385 
PR000390 
PR000395 
PR000400 
PR000405 
PR0D0410 
PR00041 5 
PR000420 
PR000425 
PR000430 
PR0D0435 
PR000440 
PR000445 
PR0D0450 
PR000455 
PR000460 
PR000465 
PR000470 
PR000475 
PROOO480 
PR000485 
PRQDC49C 
PR000495 
PR000500 
PR0D0505 
PR0D0510 
PR000515 
PR000520 
PR000525 
PR0D0530 
PR000535 
PR000540 
PROD0545 
PR000550 
PR000555 
PP.000560 
PR00006? 
PR0D0570 
PR000575 
PR0D0580 
PR000585 


tlBFTC  COLUM  UST  COLMOOOO 

SUBROUTINE  COLUM  COLMOOOS 

COMMON  SP02(45).SO2(45),SPO(45),SO(45)i:SPN2(45)  , SN2I 45 ) ,PHI{ 24 ) .RACOLMOCIO 
10131,002(27) ,Q0(27),QN2(27) ,ABC(3> ,BK ( 1501 ,C0NTU50) , C0N02i 150 ) .COCOLMOD15 
2NN2( 150) ,CONO( 150) ,CONTL ( 1 50  I , C0N02LC 150 ) ,C0NN2L( 150 ) , CONOU 150 )  C0LM0020 

COMMON  D£P02,DEPN2  tOFPTH, SQ02 , SOO, SQN2,  QN0,C0?  »CN2 ,  EPS  I »  K , HITE«CHIC0LH0025 
1  ,C  IMIN,D02;0N2  ,00,0, DNO, EAR, SX02 «  SXO, SXN2, KLAJ,  DEPO  C0LM0030 

DIMENSION  ANS(  4 >  ,A(4S  ,A2  (4 )  ,  ANSL ( 4 )  ,  A3(  4S  ,  ANS 3(14) ,  POT  (4) ,  ANSWl  4)  COLM0035 


DO  5  I- 1,4 
A2(f)=0-  » 

5  A3(  I  )'*0  * 

TEN=10.0 
0EGRA»O. 5236 
P«0.0 
Qin.o 
KUTY«0 
KUT0-4 
10  TEST*T6N 
15  UTOR*( EAR*HI  TEI 

BE TAR»3. 1415926-CHI 
IF( BETAR-ARS IN (EAR/UTOR) )  20,30,30 
20  MRITE  (6,25) 

25  FORMAT ( 34H0THI S  PATH  GOES  BELOW  THE  HORIZON  ) 

’  f.O  TO  230 
30  CQSB*COS(BETAR ) 

DISTR»0.3 
BUTC,»  UT0RA62 
YUR*2.0*  UTOR*CQSB 
IFCHITE-95.0)  40,35,35 
35  IF(CHI-i. 5707963)  45,45,40 
40  KUTY*1 
KUTO-3 

45  HT0R*(SQRT(BUTR2M0ISTR**2J-(0ISTR4YUR)))  —  EAR 
50  0(3  65  J»l,10l 

IFf BK( J  J-HTOR’ 65 , 55,90 
55  ANSf 1)*C0NT( J) 

ANSI  2) »C0N02 ( J ) 

ANSI 3)*CONN2( J) 

IF(KUTY)  100,60,100 
60  ANS(4)-C0N0O) 

GO  TO  100 
65  CONTINUE 

I F  ( 0 1  70,80,70 
70  00  75  l«l,KUTD 

A2(  I  )’»A7.(  I  l-ANSL  ( I )' 

A3(  I')  *A2(  I  )-ANSG(  1  > 

75  ANSW( I )*ANSQ(  I ) 

GO  TO  \45 
80  00  85  i*l,KUTD 

43  ( t ) *A3( I )— ANSQ( I ) 

<85  ANSW(  I  t*ANSG(  ( ) 

GO  TO  145 

90  TLAZ Y« (HTOR-BKl J-l )  1/10.0 

ANSI  1)»10.0**(C0NTL( J-l) ♦( TLAZY*IC0NTL( J)-CONTL(  J-l) ) )} 
ANSI  2)«10,0**( C0N02L1 J-l  ),>(  TLAZY4(C0N02L(  J)  rC0N02L(  J-l)  )  I  ) 
ANSI  3 )  »10,0**(C0NN2L(  J-l  )♦(  TLAZY*(C0NN2L(  J  )-C0NN2L  I  J-l ) ) ,»  } 
IF(KUTY)  100,95,100 

95  ANS(4)*10.0**(CONOL(  J-1)4(,TLAZY*(CONOL(  J)-CONOL(  J-l)  I  ) ) 


C0LM0040 
C0LM0045 
C0LM0050 
COLM0055 
C0LM0060 
C0LM0065 
C0LM0070 
C0LM0075 
COLMOO80 
C0LM0085 
C0LM009C 
CULM0095 
COLMOIOO 
C0LNO105 
C0LM0110 
X0LM0M5 
COLM0120 
C0LM0125 
C0LM0130 
C0LM0135 
C0LM0140 
C0LM0145 
C0LM01 50 
C0LM0155 
CULM0160 
COLM0165 
COL MO 170 
CULM0175 
COLM0180 
C0LM0185 
C0LM019C 
C0LM0195 
C0LM0200 
C0LM0205 
C0LM0210 
C0LM0215 
C0LM0220 
C0LM0225 
C0LM0230 
C0LM0235 
COLM0240 
C0LM0245 
C0LM0250 
C0LM0255 
C0LM0260 
COLM0265 
C0LM0270 
C0LM0275 
C0LM0280 
C0LM0285 
C0LM0290 


100 

IMP)  11 5t  105  til  S 

C0LM0295 

105 

OOf'llO  I  «ltKUTO 

CQLM03C0 

iio 

All)*  ANS  HI 

COLMC395 

P*1.0 

C0LN0310 

GO  TO  140 

C0LM0315 

115' 

IF  ( Q )  130,120*  t;30 

COLM0320 

120 

00  125  1*1  *K’JT0,- 

COLM0325 

A21l)'ANSU)*A2in 

C0LM0330 

1.7.5 

ANSLI  I-i*ANS  t 1 1  ' 

C0UM0335 

0*1.0 

C0LN0340 

GO  TO  140 

C01M0345 

130 

00  135  l-WKUTO 

tOLM035C 

A3 ( 1 )*ANS( l 1>A3( I ) 

Ci)tN0355 

135, 

AN SOI  1 l*ANS(l 1 

C0LM0360 

0*0. n 

COLM0365 

140 

DlSVR*Dl  STR+TEST' 

C0LM0370 

GO  TO  45 

C0LM0375 

145 

00  150  I *1 »KUT0 

C0LH0380 

150 

POT  (11*11  T55T*l.0E5>/3.0)*((A(li  ♦ANSWl l )  1«-14.'0*A2(  II )  «■(  2  .0*A31  l  )  l  1C0LM0385 

0EPTH*P0T1,Y>- 

C0LM0390 

DEP02*P0T<  2 ) 

C0LM0395 

0EPN2«P0T(3T 

COLM0400 

1FIKUYYI  160.155,160 

C0LN0405 

155 

0EP0*P0T1 4 ) 

COl  i50410 

GO  TO  230 

C0LM0415 

160 

P®0.0 

COLM0420 

0*0.0 

COJ.M0425 

OISTR-O.O 

C0LM0530 

145 

HrORnt  SORT!  0UTR2-MOI  STR**2  )-(0 1STR4YUR)  1  )-  EAR 

COLM0435 

00  1 75  J«1 , 51 

C0LM0440 

IF  IBK(  J1-N70R1  175,170,195 

COLNC‘445 

170 

ANSI  4 )  *CONO  <  Jl' 

COLN0450 

GO  TO  200 

C0LM0455 

175 

CONTINUE 

COI.M0460 

IF  1 0 )  180,190,1.80 

COUM0465 

180 

A21 4)*A2<4)— ANSI. (41 

COLN0470 

A31 4) *A3 14) — ANSQ14) 

COLN0475 

ANSUl 4) *ANSQ(4 ) 

C0LN048P 

185 

DEP0*1„666667E5*UA14)*ANSM14)  )*14.0*A214)  >M2.Q*A314)I  ) 

COLN0485, 

GO  TO  230 

COLM0490 

190 

A314)*A3(4)-ANSQ(4) 

COLM0495 

ANSM1 4)*ANSQI4 1 

COLM05CO 

GO  TO  185 

CGLM0505 

195 

TLAZY*1HT0R-BK1J-1| 1/10.0 

COLN0510 

ANS ( 4) »10.0**1 CONCLl J-l) *TLAZY*1CONOU J l-CONQU J-l ) » ) 

COLN0515 

200 

IF (P )  210,205,210 

COLM0520 

205 

A14)*ANS<4> 

C0LK0525 

P*1.0 

COLM0530 

GO  TO  225 

COLM0535 

210 

IFC 0 |J  220.215,220 

C0LN0540 

215 

A21 41  *ANS1  4 )  *A2 1 4 ) 

C0LN0545 

ANSL 1 4) * ANS (4) 

C0LN0550 

0*1.0 

C0LN0555 

GO  TO  225 

COLN0560 

220 

A3 1 4 1  *ANS1 4 )  +A3 1 4 ) 

C0LM0565 

ANSQ14) *ANS(4) 

C0LN0570 

0*0.0 

COLN0575 

225 

OISTK*D  I  STR*5.0 

COL^05UO 

GO  TO  165 

C0LNC585 

230  RETURN 
END 


COLM0590 

C0LNQ595 


Appendix  B 

The  Differential  Equction  Writer  Program 


This  code  was  originally  written  by  David  McIntyre  (1965)  for  computing  the 
total  derivative  of  each  species  with  respect  to  timc^and  the  partial  derivatives 
of  each  species  with  respect  to  the  other  species.  His  code  was  writtemfor  an 
IBM-6000  computei;  soin  order  to  use  thisxode  on  an  IBM-7044  or  7094  computer 
it  had  to  be  rewritten.  The  author  has  made; the  modifications  necessary  for  com- 
puting  the  codes  for  the  formation  sums  /  F;  and  the  removal  sums^i^  .  The 
code  consists  of  a  main  program  and  eight  subroutines;  DIFFEQ,  SET8,  DY, 
REFACT,  DIFFER,.  FACTOR,  OUT,  CODER,  and  DECODE.  Because  the  last 
two  subprograms  involve  character  manipulations  that  are  not.  easily  performed 
in  the  FORTRAN  language,  they  ar.e  written  in  the  MAP  language. 

Tho  main  program  essentially  controls  the  input  and  output.  The  input  con¬ 
sists  of  a  deck  of  cards  containing  the  reactions  in  coded  form.  The  output  is  a 
listing  and  a  deck  of  cards  containing  the  FORTRAN  statements  for  subroutine 
SLOP.  The  only  thing  that  has  to  be  added  to  the  deck  is  the  proper  COMMON 
statement.  For  the  system  described  in  this  report,  the  following  code' applies. 
Since  all  of  the  species  listed  after  the  total  density  are  not  considered  in  the 
program,  there  is  no  output  code  for  them. 


-L 


jcies 

Input 

to 

Program 

Output 

From 

Program 

Species 

Input 

to 

Program 

Output 

From 

Program 

e 

5 

Y(l) 

n2o 

18 

Y(14) 

0" 

6 

Y(2) 

0 

19 

Y(15) 

°2‘ 

7 

Y(3) 

°2 

20 

Y(1 6) 

°3 

8 

Y(4) 

N2 

21 

Y(17) 

NO- 

9 

Y(5) 

Total 

Density 

22 

Y(18) 

0+ 

10 

Y(6) 

N+ 

23  j 

- - 

°2 

11 

Y(7) 

NO+ 

24 

— 

N2 

12 

Y(8) 

n2°+ 

25 

— 

NO+ 

13 

Y(9) 

o? 

26 

— 

NO 

14 

Y(10) 

no3 

27 

— 

N 

15 

Y(ll) 

< 

28 

— 

no2 

16 

Y(12) 

NO+ 

29 

— 

°3 

17 

Y(13) 

NO" 

30 

The  reactions  are  punched  on  cards  in  coded  form  in  FORMAT  (2014).  Conr 
sider  the  reaction 


O  +  Og  +  Ng  Og  +  Ng  . 


This  reaction  is  coded  as 

Y(19)  +  Y(20)  +  Y(21)— Y(17)  +  Y(21)  +  O  kj3g 
and  punched  as 

bb 1 9bb2 0bb2 lbb 1 7bb2 lbbbOb 1 39 . 


Each  reaction  must  contain  seven  integers:  three  for  the  reactants,  three  for  the 
products,  and  one  for  the  reaction  number.  If  a  reaction  contains  less  than  three 
reactants  or  less  than  three  products  the  corresponding  subfields  must  contain 


zeros'. 
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I  ^  % 
I  < 

I  * 


}  o 


The  output  is  a  complete  FORTRAN  deck  from  the  $IBFTC  card  to  the  END 
card  with  the  exception  of  a  COMMON  statement.  Although  the  subroutine  is  a 
general' one,  it  still  requires  a  COMMON  statement  compatible  with  the  remainder 
of  the  code  in  which  it  is  used.  The  following  statements,  beginning  on  page  B4, 
are  a  listing  of  the  main  program. 

Subroutine  SET8  is  called  by  the  main  program  and  assigns  an  identification 
to  each  of  the  reactions  according  to  type.  This  is  a  digit  from  one  to  seven  and 
is  added  to  the  coded  reaction  as  the  eighth  integer.  The  maximum  type  of  reaction 
that  this  program  car  handle  is  a  three -reactant  three-product  process.  The  type 
identifiers  as  related  to  the  reactions  are  shown  in  the  comments  of.  the  FORTRAN 
program;.  The  following  statements,  beginning  on  page  B6,  are  a  listing  of  sub¬ 
program  SET8. 

Subroutine  DY  scans  the  reactions  searching  /'or  a  particular  species  as  a 
reactant  or  a  product.  If  it-finds  the  species  as  a  reactant  it  transfers  the  reactants 
to  the  IREMOV  region.  The  memory  cell  preceeding  the  cells  containing  the  re¬ 
actants  is  coded  as  -2  if  the  reaction  type  is  one,  as  -3  if  the  reaction  type  is  two, 
three,  or  four,  and  as  -4  if  the  reaction  type  is  five,  six,  or  seven.  If  it  finds 
the  species  as  a  product  it  transfers  the  reactants  to  the  IFQRM  region.  Now  the 
memory  cell  preceeding  the  cells  containing  the  reactants  is  c^ded  as  described 
above  except  that  the  sign  of  the  digit  is  positive. 

Upon  a  normal  exit  from  this  subroutine,  all  of  the  reactants  for  processes 
that  form  a  particular  species  are  in  the  IFORM  region  and  all  of  the  reactants  for 
processes  that  remove  this  species  are  in  the  IREMOV  region. 

The  following  statements,  beginning  on  page  B7,  are  a  listing  of  subroutine  DY. 

Subroutine  DIFFER  computes  the  partial  derivatives  of  eachdifferential  equa¬ 
tion  with  respect  to  the  species  for  which  the  equation  was  written.  Effectively, 
this  routine  factors  out  the  given  species  from  all  the  reactions  that  remove  it  so 
that  the  quantity  J^Rj  can  be  computed.  The  following  statements,  beginning  on 
page  ,B8,  are  a  listing  of  this  program. 

Subroutine  REFACT  performs  the  factoring  of  species  and  leaves  the  reactions 
in  the  IFACT  region  in  as  highly  a  factored  form  as  possible.  The  following  state¬ 
ments,  beginning  on  page  B9,  are  a  listing  of  the  FORTRAN  statements  for  this 
subprogram. 

Subrouting  FACTOR  which  is  called  very  often  by  subroutine  REFACT  does 
the  actual  factoring.  It  scans  a  particular  series  of  reactions  set  up  by  REFACT 
to  find  the  species  occurring  most  often  in  the  series.  It  factors  out  this  species 
and  returns  to  REFACT  with  the  factored  version  of  the  series  fed  to  itBy  REFACT. 
The  following  statements,  beginning  on  page  Bll,are  a  listing  of  this  subroutine. 


b 


UBFIC  01FG  L  l  SI 

COMMON  OUTPUT! 20CC) 

DIMENSION  IRE AC (8, 20 0),1 PARI( 5001,1  NS £K 1(5001,1  PACK 
1.  INSTlrWSOOl  .1 IOU  (5001 ,  IFURMi  500)  .  IREMV(500> 
DIMENSION  I012C00I  ,U5) 

OAT  A  U/6H*PN£  ,6H*PU2  ,6H»PU  ,6h*PN2  ,6H»PN0 

READ (5tlL0)  NGLN  S  jNSPECl 

READ  15,5)  t (IR6AC1  1 . J  > ,1*1,7) , J*1 ,KEwNS) 

5  FORMAT (20 141 
Akl TE( 6 ,901 
PUNCH  115 
NO*  l 
HI  *2 

CALL  SETUUKEAC. NEONS) 

JsIUP*NSPECI»4 
00  80  J*5,JSTUP 
1CUK ( 1 ) *  1001 
1HAKK*2 
lP01NTnl 
1C0UNT*0 

CALL  UY( J.NELNS, IkEAC, IFOkMi IREMV , 1 SPEAK.LENDY ) 

LOfcN* J 

CALL  OlFFER  ( IREP  V  , LfcNUY >  LOENt 1  PART  >  Li  PART  >LFL AO  > l COR 

1MAKK*IMARK*L1CCR 

Jl=J-4 

LOENC*LOEN-A 

IF(LIPART')  10,30,10 

ic  insert ( i pui m ) *j 

INSERT! 1PU1NT ♦ l ) *LUEN 
1NSERTUPUINI»21*L0EN 
15  IPGINT*IF01NT*3 
ICULNT*IC0UNT»1 
C 

C  PUI  PARENTHESIS  ARCUKO  1PART 
00  2C 1 *1 >L1 PART 
11*0  PART-1*1 

20  IPAKT(101)*IPARI(U) 

IPAKI(LIPAkT*21*-1001 
IP ART ( 1 ) *  1001 
LENGIP*LIPAKT»2 

CALL  REPACK IPAR I, NSPECl .IFaCT.LENGIP) 

CALL  lJUT(lFACT»LENGrP  ,'IAHKUR) 

CO  21  J  J0*1 >  200C 

21  lUlJJOK-O 

CALL  DECODE! OUTPUT, ID, 1 ARROW* I  NUMB) 
mR  1  IE  ( t>,  55)  NOtLOENCtlOENL.Nl 
PUNCH  95.  NC.LOENC.LDENo.Nl 
RKlIEi6,25)  LOENC,  l  (0(1) ,1*1,1  NUMB) 

PUNCH  25,  'LOENC ,(  i  C( 1) ,1*1,1 NUMb) 

25  PURMAl (oX,5HREPv (  ,  1 2 , 5h)  , 9 A6/ ( 5X , 1H1 • 11 Ab ) ) 

C 

C  PUT  PAKENThESIS  ARCUNO  10YJ0T 
3C  CO  35  1*1,1  SPEAR 
U*1SP6AR-1*1 
35  IFOkMi 11*1)*  1F0RMC 11 ) 

1HURP l 1  SPEAR »2 I *~  100 1 
IFLKM(l) *1001 
LEND !H*1SPEAR»2 


D1FU0005 
1CURI 5C0101F00010 
OIFOOOIS 


DIFU0035 

01F00040 

01F00045 


0IF00065 

0IFQ0070 

OIFUOQ75 

D1FU0080 

DIFOOOB5 

D1F0009P 

DlFgoo9V 
OIFUOIOC 
DlFUo'105 
(  IMARA), CICUR1U1FQ0  10 
OIFQ0115 
D 1FU0120 
D1FU0125 
U1F00130 
01F00135 
DIFU0140 
DIF00145 
01FQ0150 
D1FU0155 
DIFQOloO 
DIF00165 
0IFU0170 
D1FU0175 
DIFOOlbO 
0IF001B5 
01FUC190 
D1F00135 
DIF00200 
D1FU0205 


D1FUQ210 


0IF00225 

DIFQ0235 

01F00240 

01F00245 

01F00250 

01F00255 

DIF00260 

DlF002o5 

01F00270 

01F00275 
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CALL  REPACK  1F0RK..NGPEC1  .  1FACI  .LENGTH) 

01FU0280 

CALL  OUT  ( 1FACT  .LENGTH.  1AKKUM)' 

00  36  JJD*1,2000 

01FQ0285 

36 

10(JJD)*0 

IF ( J  .Eg.  5)  GO  TC  AO 

IUFQ0290 

1F( J  .EO.  13)  GO  TO  AS 

OIF0O295 

1F( J  .Eg.  12  )  GO  TO  50 

01FU0300 

IP(  J  .EO.  1A)  GU  TO  55 

DIFU0305 

IFU  .EO.  15)  GC  TC  60 

OlFgOilO 

GO  TO  65 

0IFU0315 

AO 

iARROW*! ARRCm+1 

OUIPUTUARkCwMOU) 

0 IFC0320 

GO  TO  65 

0 IFU033S 

A5 

I  AkRCW* I ARKC  «♦ 1 

OUTPLT ( I AKRON )  *C ( 2 ) 

D 1FQO3A0 

GO  IU  65’ 

UIFg0365 

50 

1 ARROW* iAkftCh+1 

0JTPUT(IARRCti)*g(3) 

01FU0360 

GO  TC  65 

0IFU0375 

55 

IARRGW*IARRGk*l 

D1FU03S0 

OUTPUT  1 1  ARROW ) *L(A) 

GO  TO  65 

D1F00395 

60 

IARKOWIAKKUmM 

OUTPUT ( 1  ARROW) *C (5) 

DlFgOAOO 

65 

CALL  OECCOE (OOTFLl.iO.lAKKUR.l NUMB > 

D1FU0A15 

Jl*J-A 

DIFU0A20 

70 

RK1TE16.75)  Jl.(lCII). 1*1.1  NUMB) 

PUNCH  75.  Jl, 110(1 ), 1*1, 1NUMB) 

01FU0A25 

75 

FORMAT ( 6X . 5HFUKM (.12.5HI  ,9 Ao/ < 5X, 1H1 , 1 1A6) ) 

DIFU0A35 

N0*N1 

0 IFOOAAO 

N1*N0+1 

DIF00AA5 

80 

CONTINUE 

DIFU0A50 

UR  1 TE( 6. 100 )  NO 

PUNCH  100, NO 

DIFUOA55 

WR1TE16.105) 

PUNCH  105 

D1FU0A65 

85 

STOP 

D 1F00A75 

90  FUKMAT ( 19H1 1 BF TC  SLuP  L l ST/6X ,2 IHSUBKUUT 1NE  SLUPl KIND I/6X.23HD1 U (FUCA80 

1MENS10N  Y{ 250 )  »C  (  173)/6X.3AHEUUIVALENC£  ( Y  (  1 ) ,  IREG(A 1  ) .  (C CON) /5X , 

2  UH  CALL  BAL AN/OX » SHY  1 19)  *002/6..',  9HY  (20)  =  0N2/6X,7HY(21)*D/oX.2i 
33H1F  (KIND  .EC.,  2»  00  TC  1/6X , 1 1HCALL  PR'OCUC) 

95  FORMAT  ( 1 H  >  I A  <  27H  IFUKINU  .Eg.  1  .ANC.  KEY(,I2,3dH)  ,NE.  1J  .OK.  0IFU0500 
KKINU  .Eg.  2  .ANC.  KE Y< /5X , IH1 , 1 2, 17H)  .NE.  2 ))  GO  TO  .131  DIFg0305 

100  FOKHAI ( 1H  .  1 A  »7H  RETURN)  D1FU0610 

105  FORHA T (6X . 3F.END)  DIF00515 

110  FORMAT (2  IA ) 

115  FORMAT (19HMBF 1C  SLOP  LI ST/6X , 2 lhSUUROUT INE  SLOP( K IND) /6X, 23HD 10 1FOQA80 

lMfcNSlON  Y (  250 )  ,C(  173)  /6X,3AfiE0Ul  VALENCE  ( Yil )  , TREGI A ) )  .  ( C .  CON) /5X , 

2  11H  CALC  BALAN/6X,9HY{ 19) *DU2/6X, 9HY l 20 ) *UN2/6X, 7HY ( 21 ) *D/6X, 2 

33H1F (KINO  .EQ.  2 )  GO  TC  1/6X . 1 1HLALL  PKOOUCI 
ENO  01FU0520 


}<> 

'  ft 

f 


C 


BG 


UBFTC  SETS  LIST 

SUBROUTINE  SETS  I IREAC .NEQNSJ 
C 

C  SUBROUTINE  IDENTIFIES  THE  TYPE  OF  EACH  REACTION  AND  LOADS  IREACIS.K) 
C  WITH: THE  TYPE  NO.  FOR  EACH  EQUATION  K« 1, 2,. . . , NEONS  L.T.  200. 

C  TYPE  1  I  GOES  TO  J  »  K. 

C  TYPE  2  I  ♦  J  GOES  TO  K 

C  TYPE  3  I  ♦  J  GOES  TO  K  ♦  L 

C  TYPE  4  I  J  GOES  10  K  *  L*H 

C  TYPE  5  I  .♦  J  ♦  K  GOES  TO  L 

C  TYPE  6  I  ♦  J  ♦  K  GOES  TO  l  »  M 

C  TYPE  7  I  ♦  J  ♦  K  GOES  TO  L  *  H  *N 

DIMENSION  I  REACT  8.2001 
00  40  1 1 « t » NEONS 
LNARK»0 
IRIGHT«9 
00  10  IPT-1,3 
IFI  IRE ACI  IPT, I  It  110,5,10 
5  LMAfk*LHARK+l 
10  CONTINUE 

00  20  IFT*4,6 
IFUREACilPT.tll  120,15,20 
15  IR  ICHT^'l  RIGHT*  1 
20  CONTINUE 

IFILMARK-l) 35,30,25 
25  IREACIS, 1 1  1*1 
GO  TO  40 

30  IREACIS, II I«4-IRIGHT 
GO  TO  40 

35  1REACI8,  m«7-IRIGHT 
40  CONTINUE 
RETURN" 

END 


SET80000 
SET80005 
SET80010 
SET80015 
SET80020 
SET80025 
SET80030 
SET80035 
SET80040 
SET80045 
SET80050 
SET80055 
SET80060 
SET80065 
SET80070 
SET80075 
SET80080 
SET80085 
SET80090 
SET80095 
SET80100 
SETS0105 
SET  80110 
SET80115 
SET80120 
SET  80125 
SET80130 
SET80135 
SET80140 
SET80145 
SET80150 
SET80155 
SET80160 


o  u 
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ilBFTC  OY  LIST 

SUBROUTINE  OYI J, NEONS , 1KEAC, I  FORM, I REMOV, i SPEAR . I ARROW I 
DIMENSION  l REACT  8  ,200) , I  FORM 1 500 ),  1  RE MOV ( 500 ) 

C  IFORHtl)  TO  IFORMI I  SPEAR)  CONTAIN  IN  CODED  FORM  OYIJI/DT  FOR 
C  FORMATION  PROCESSES. 

C  IREMVUI  TO  IREHVI  I  ARROW)  CONTAIN  IN  COOED  FORM  OYIJI/DT  FOR 
C  REMOVAL  PROCESSES. 

C  NEQNS-NO.  OF  REACTIONS  CONSIDERED, NEONS  L.  T.  200 
C  LENGTH  L.T.  50" 

C 

C  SEARCH  TO  FIND  IF  KTH  EQN’ CONTAINS  SPECIES  J  IN  ROW  12 
I  ARROW*!) 

I SPEAR*0 
DO  90  1 2*1*6 
DO  90  K*l, NEONS 
IF!  IREACU2,KI-J)90,5,90 

KTH  EON  CONTAINS  YU)  IN  ROW  12 
5  IF!  12-3)10,10.50 

C  KTH  EQN  IS  REMOVAL  EON  FOR  YU ) ,-  CALCULATE  REMOVAL  TERM  IN  IREMOVE 
C  STARTING  AT  IARROW 
If  l ARROW* I  ARROWS 1 

IF! I RE AC  10, K)-2) 20, 25,15 
15  IF! IREAC(8,K)-4)  25,25,30 
20  I  REMO VI IARROW) *-2 
GO  TO  35 

25  IREMOVI I  ARROW) »-3 
GO  TO  35 

30  IREMOVI I ARROW) *-4 
35  I ARROW* I  ARROW* l 

IREMOVI I  ARROW) -IREACI7.K) 

DO  45  11*1,3 
IFI  IREAC1 II, K > 195,45,40 
40  1 ARROW* I ARROW* 1 

IREMOVI IARROW)»IREACII I, K) 

45  CONTINUE 
GO  TO  90 
C 

C  KTH  EQN  IS  FORMATION  EQUATION  FOR  YU),  CALCULATE  FORMATION  TERN  IN 
C  IFORM,  STARTING  AT  ISPEAR 
50  ISPEAR*! SPEAR*l 

IFI IREACI8,K)-2) 60,65,55 
55  IFI  IREACI8,K)-4)65,65t'70 
60  IFORMI ISPEAR)*2 
GO  TO  75 

65  IFORMI ISPEAR)*3 
GO  TO  75 

70  IFORMI ISPEARI-4 
75  ISP6AR*ISPEAR*l 

IFORMI ISPEAR)*IREACI7,K) 

DG  85  11*1,3 
!FtIREAC(II,K))95,85*80 
80  ISPEAR*! SPEAR*1 

IFORMI I  SPEAR)* IREACI 1 1 ,K» 

85  CONTINUE 
90  CONTINUE 
GO  TO  105 
95  WRITE! 6, 100) 

100  FORMATI23H  ERROR  IN  SUBROUTINE  DY) 

105  RETURN 
ENO 


DYOOOOOO 
DY500005 
DY500010 
DY500015 
DY5C0Q20 
DY500025 
DY500030 
DY500035 
DY500040 
DY500045 
OY5OO05O 
DY500055 
DY500060 
DY500065 
DY500070 
0V500075 
DY500080 
DY500085 
0/500090 
DY500095 
DY500100 
DY500105 
DY500110 
DY500115 
DY500120 
DY500125 
DY50013C 
DY500135* 
DY500140 
DY500145 
0Y500150 
DY500155 
DY500160 
DY500165 
0Y500170 
DY500175 
DY5001 80 
DY500185 
DY500J.90 
DY500195 
DY500200 
DY500205 
DY500210 
0Y500215 
DY500220 
DY500225 
PY500230 
OV500235 
DY500240 
DY500245 
DY500250 
DY500255 
DY500260 
CY500265 
DY500270 
DY500275 
0Y500280 
OY 5002 85 
DY500290 
DY500295 
0Y500300 
DY500305 


UO  o  o  o o  uu  oo  oo 
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♦IBFTC  DIFFER  LIST  DIFROOOO 

SUBROUTINE  DIFFER!  INPUT.  IN S TOP  »LDEN» IPART .  L6NGT  H.L  FLAG.  I  COR.  LI  f.0R)0  IFR0005 
DIMENSION  INPUT <  5001 , 1  PART ( SCO ) , ICORI 500 )  OIFROOIO 

C  DIFR0015 

C  SUBROUTINE  TAKES  PORTION  OF  CORE  FROM  INPUT(l)  TO  ANS  INCLUDING  0IFR0020 

,C  INPUT! INSTOP)  ANO  CALCULATES  PARTIAL  DERIVATIVE  OF  IT  W.R.T.  YILDEN) .DIFR0025 


INSTOP  L.T.  200 
L0EN«5,6,...,N$PECI*4 

DERIVATIVE  IS  STORED  -IN  IPART(l)  TO  I  PARTI  LENGTH! 

IF  LENGTH  »  0  .  DERIVATIVE  IS  ZERO 
IARROW-O 
IPOINT-O 
INOEX-I 

CHECK  FOR  END  OF  INPUT  PORTION 
5  IF!  lNPUTIINDEXm0.75.10 
10  IF! IABSI INPUT! INDEX))-*! 15.15.80 
15  IF!  IABS!  INPUT!  INOEX)  )-l)  70 .70. 20 

SCAN  SERIES  FOR  LOEN 
20  ISTOP-IABS!  INPUT!  INDEX)) 

ICOUNT-O 

00  30' 1-2, I  STOP 

ll-!NOEX*I 

IF! INPUT! 1 1 l-LOEN >30,25, 30 
25  IC0UNT-IC0UNT*1 
30  CONTINUE 

IF!  ICOUNT-1 ) 35,40,40 

NO  LOEN  IN  SERIES 
35  GO  TO  70 

ONE  LOEN  IN  SERIES. CALCULATE  PARTIAL  IN  IPART, STARTING  AT  IARROW 
40  IARR0W«IARR0W*1 

IPART! 1ARR0M)*I ABS! INPUT! INDEX ) )-l 

IPART! IARROW)- I  SIGN! IPART! I ARROW) .INPUT! INDEX!) 

IPART  1 1  ARROW*1 1 )  -  INPUT!  INOEX*!) 

I ARROW- I ARROW* 1 
45  DO  55  1-2',  I  STOP 
1 1- INDEX*! 

IF! INPUT! 1 1 )-L DEN) 50, 55, 50 
SO  ! ARROW- 1  ARROW* 1 

IPART! !ARROW)«INPUT(!I) 

55  CONTINUE 

IF! ICOUNT-1 160,70,60 

LOEN  OCCURS  MORE  THAN  ONCE  IN  SERIES, DIFFERENTIATE  AGAIN 
60  00  65  LL-2, ICOUNT 
I ARROW- I ARROW* 1 
65  IPART! IARROW)«LOEN 

RESET  INDEX 

70  INDEX- INOEX* IABS I  INPUT!! NOEX) ) *1 
IF! INDEX-INSTOP)  5,5,75 
75  LENGTH-IARROW 
LICOR-IPOINT 
GO  TO  90 
80  WRITE16.85) 

85  F0RMATI27H  ERROR  IN  SUBROUTINE  DIFFER) 

90  RETURN 
END 
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AIBFTC  REFACT  LIST  REFAOOOO 

SUBROUTINE  REFACT!  INPUTO  ,NSPECI ,  I  NPUr.L'EfJGTH.JK)  REFA0005 

DIMENSION  I NPUTO ( 500) , INPUT  15/05  ,  I WORK! 500) , 1ST ICK 1500), INPUTY * 500REFA0010 
II  REFA0015 

C  REFA0020 

C  SUBROUTINE  COMPLETELY  FACTORS  INPUTtOl.)  TO  INPUTO(LENGTH)  ANS  RETURNREFA0025 


RESULT  IN  INPUT III  TO  INPUT (LENGTH) „  LENGTH  ID  CHANGCO  IN  ROUTINE 
LENGTH  6.  T.  OR  E.  1000 
DO  5  1*1, LENGTH 
$  INPUT! t l-INPUTOi t ) 

IBLOCK-O 
I  QUIT- 1 

10  DO  15  I«r,IQUIT 
15  ISTICKI I  1-0 
IBEG1N-IBL0CK+1 

SEARCH  INPUT  AREA  UNTIL  FINO  FIRST  PAIR  OF  CLOSED  PARENTHESIS  TO 
RIGHT  -OF  I  BLOCK 

IF  ( l  BLOC  K-L  ENG  TH«-6  >20,20,1 75 
20  DO  AO  INDEX-IBEGIN, LENGTH 

IF( IABSI INPUT! INDEX) >-1000) 40, AO ,25 
25  IF  I:  INPUT  ( INOEX ) )  30,35,35 
30  MARK- INOEX 
GO  TO  A5 
35  LMARK-INOEX 
AO  CONTINUE 

A5  ASSIGN  10  TO  LSHTCH 

NOW  LH  PARENTHEISS  IS  AT  LMARK  AND  RH  PARENTHEISI  IS  AR  MARK, PICK 
OFF  EVERYTHING  IN  BETWEEN 
ISTART-LMARK  *1 
I  STOP-MARK— 1 

IF! ISTOP— I  START— 6) 110,50,50 
50  II-O 

DO  55  I-ISTART. ISTOP 
II-IIA1 

55  1ST ICKI 1 1 1-INPUT ( I ) 

IQUIT-t  I 

FACTOR  EVERYTHING  BETWEEN  LAMRK  ANO  MARK 

CALL  FACTOR! I  ST I CK, I QUIT , NS PEC  I , I WORK, L MAX, I S PR ED) 

IF(LMAX)  60,110,60 

PUT  FACTORED  VERSION  IIWORK)  INTO  INPUT  BETWEEN  LMARK  ANO  MARK 
60  IHAVE  -MARK-LMARK— 1 

IF! ISPRED  —  I HAVE  165,100, 85 


REFA0030 

REFA0035 

REFAOOAO 

REFA00A5 

REFA0050 

REFA0055 

REFA0060 

REFA0065 

REFA0070 

REFA0075 

REFA0080 

REFA0085 

REFA0090 

REFA0095 

REFAOIOO 

REFA0105 

REFA0110 

REFA0115 

REFA0120 

REFA0125 

REFA0130 

REFA0135 

REFA01A0 

REFA01A5 

REFA0150 

REFA0155 

AEFA0160 

REFA0165 

REFA0170 

REFA0175 

REFA0180 

REFA0185 
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REFA0205 

REFA0210 

REFA0215 
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REFA0225 


C  TOO  MUCH  ROOM  BETWEEN  LMARK  ANO  MARK, COLLAPSE  SOME 
65  I MOVE- IHAVE- ISPRED 

11- MARK-IMOVE 
INPUT! II l-INPUTIMARKI 
INPUT! MARK) -0 
ISTOF-LENGTH-MARK 

IF! I  STOP) 165,S0«70 
70  DO  75  1-1,1  STOP 
JJ-IIM 

1 2-  MARK* I 

INPUT! JJ I- INPUT! 12) 

75  INPUT! I2)»0 
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80  LENGTH-LFNGTH-IMOVE 
GO  TO  100 
C 

C  NEED  HORE  ROOM, HOVE  EVERYTHING  TO  RIGHT  OF  AND  INCLUDING  MARK  TO 
C  RIGHT  ONE  SPACE 

85  IST0P-LENGTH-MARK*1 
90  00  95  I- 1» 1  STOP 
II-LENGTHU-I 
95  tNPUT!II»l)-INPUTIlll 
LENGTH-LENGTHH, 

IHAVE«IHAVE«-1 

IF(  I SPRED- 1  HAVE  I  100,100,90 

DONT  HAVE  TO  MOVE  THINGS  AROUNG 
100  DO  105  1*1*1 SPRED 
II-LMARK+I 

105  INPUT (  1 1 I- 1  WORK! 1 1 
GO  TO  10 

NEW  SEARCH  FOR  1  ) 

110  00  115  1*1, I QUIT 
115  ISTICK$!)«0 
I  BLOCK-MARK 
LMARK-MARK 

120  IBEGIN  «  I  BLOCK* 1 

00  130  INDEX-IBEGIN, LENGTH 
IFIIABSI INPUT! INDEX) )- 10001 130,130,125 
125  IF! INPUT! INDEX)) 135,175,175 
130  CONTINUE 
GO  TO  175 
135  MARK-INDEX 

NOW  )  IS  AT  LMARK  AND  I  IS  AT  NARK, PICK  OFF  EVERYTHING  IN  BETWEEN 
IFIMARK-LNAAK-6! 140, 1*0, 145 
140  LMARK-MARK 
I  BLOCK-MARK 
GO  TO  120 

NOT  ENOUGH  ROOM  TO  FACTOR 
145  I  START -LMARK+l 
I  STOP-NARK-1 
II-O 

00  150  I -I  START, I  STOP 
II-IIU 

150  ISTICKIIII-INPUTII) 

IQU1T-I I 

CALL  FACTOR! I STICK, I  QUIT ,NSPEC 1 , 1  WORK ,LMAX, I SPRED) 

IFILNAXI  160,155,160 

CANT  FACTOR  1  I  GO  BACK  AND  SEARCH  FOR  NEXT  )  ) 

155  I BLOCK-MARK 
LNARK-MARX 
GO  TO  110 

PUT  FACTORED  PART  IN  INPUT  BETWEEN  LMARK  AND  MARK 
160  GO  TO  60 
165  WR I TEI6, 170) 

170  FORMAT! 27H  ERROR  IN  SUBROUTINE  REFACTI 
1T5  RETURN 
END 
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REFA0305 

REFA0310 

REFA0315 

REFA0320 
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REFA0335 

REFA0340 

REFA0345 

REFA0350 

REFA0355 
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REFA0375 

REFA0380 

REFA0385 

REFA0390 

REFA0395 

REFA0400 

REFA0405 

REFA0410 

REFA0415 

REFAO',20 

REFA0425 

REFA0430 

REFA0435 

REFA0440 

REFA0445 

REFA0450 

REFA0455 

REFA0460 

REFA0465 

REFA0470 

REFA0475 

REFA0480: 

REFA0485 
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REFA0500 

REFA0505 

REFA0510 

REFA0515 

REFA0520 

REFA0525 

REFA0530 

REFA0535 

REFA0540 

REFA05A.5 

REFA0550 

REFA0555 

REFA0560 
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REFA0585 
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UBFTC  FACTOR  LIST 

SUBROUTINE  FACTOR! INPUT, LENGTHiNSPECI .IFACT, LMAX, ISPREOI 
DIMENSION  INPUT!  5001  ,  I  FACT!  500) ,  ICHECK1500) ,  IMESSI  500) 

C 

C  SUBROUTINE  FACTORS  OUT  LMAX ,  THE  SPECIE  OCCURRING  MOST  OFTEN* 
C  INPUT i 1 )  TO  INPUT (LENGTH) *  FACTORED  VERSION  IS  RETURNED  IN 
C  TO  IFACT! ISPREOI. 

C  NSPEC I>NO.  OF  SPECIES 
C  LENGTH  L.T.  500 
C  NSPEC I  L.  T.  100 
I5*N$PECIf4 
00  5  1-5,15 
5  ICHECK!  1 )  =0, 

LCOUNT “0 

COUNT  MANY  TIMES  EACH  SPECIES  IS  USED 
INDENT 

10  IF! IN'UT ( INDEX  I )  15,70,15 
IF  HIT  ZERO  GET  OUT 

15  IF!  IABS!  INPUT!  INDEX)  1-4)  20*?,0  j  185 
20  IF!  IABS!  INPUT ( INOEX)  >-2)40,40,25 
25  ISTOP'IABSi INPUT! INOEX)) 

CHECK  FOR  REPEATED  SPECIES  IN  TERM 
DO  35  1*2,1  STOP 
!I*INOEX*l 
DO  35  J*2, I  STOP 
j;j*inoex*j 
IF ( I-J 130, 35,30" 

30  IF!  INPUT!  1 1  Ir-INPUTlUJl  135,60,35. 

35  CONTINUE 
GO  TO  50 

NO  REPEATED  SPECIES  IN  TERM 
AO  IF! IABS! INPUT! INDEX) ) -1 ) 185,55 ,45 
45  I=INPUT! IN0EX42I 

ICHECK I!)=ICHECK(I)4T 
GO  TO  65 

50  DO  55  I =2,1  STOP 
JJ-INDEXM 
I I*INPUT!*J ) 

55  ICHECK(II)=ICHECKIII)41 
GO  TO  65 

REPEATED  SPECIES  IS  II  FROM  STATEMENT  4 
60  I I* INPUT ! J J) 

ICHECK! I I)=ICHECK!II )-l 
GO  TO  50 

RESET  INDEX  TO  HIT  NEXT  TERM 
65  INDEX=IN0EX4  IABS ! INPUT! INDEX) ) +1 
IF! INDEX-LENGTH)  10,10,70 
70  LENGTH*IN0EX-1 

NOW  THE  ICHECK1L)  CONTAINS  THE  NUMBER  OF  TIMES  THE'  SPECIES  L 
IN  LOCATIONS  INPUT!  I )  TO  INPUT!  LENGTH) 

SCAN  THEi  ICHECK  TO  SEE  IF  FACTORABLE 


F-ACTOOOO 

FACT0005 

FACT0010 

FACT0915. 

FROM  FACT0020 
IFACT!  DFACT0025 
FACT0030 
FACT0035 
FACT0040 
FACT0045' 
FACT0050 
f ACT0055 
FACTdOtO 
FACT006S 
FACT0070 
FACT0075 
FACT0080 
FACT0085 
FACT0090 
FACT0095 
FACT0100 
FACT0105 
FACT0110 
FACT0U5 
FACT0120 
FACT0125* 
FAC TO 130 
FACT0135^ 
F.ACT0140 
FACTO  145: 
FACT0150 
FACT0155 
FACT0160 
FACT0165 
FACT 0170 
FACT0175 
FACT0180 
FACTO 185 
FACT0190 
FACT0195 
FACT0200 
FACT0205 
FACT0210 
FACT0215 
FACT0220 
FACT0225 
FACT0230 
FACT0235 
FACT0240 
FACT0245 
FACT0250 
FACT0255 
FACT0260 
FACT0265: 
FACT0270 
OCCURS  FACT0275 
FACT0280 
SFACT0285 
FACTO 2 90 


B12 


NST0P«NSPECI*4 
00  75  I*5;NST0P 
IF  I  ICHECKI  I  1-2175.80,80 
75  CONTINUE 

CANNOT  BE  FACTORED 
LHAX-0 
GO  TO  105 

SCAN  THE  1CH6CK  TO  F1N0  LHAX, THE  SPECIE  OCCURRING  HOST  OFTEN 
80  00  90  I-5.NST0P 

IF! ICHECKI 1 5-LCOUNTI 90 .90,85 
85  LHAX-I 

LCOUNT- ICHECK I !  t 
90  CONTINUE 

FACTOR  AND  ARRANGE  PARENTHESIS 
IFACT ( 1 I »LNAX 
IFACT ( 21 *1001 
I ARROW" 1 
1  SPEAR-3 
INOEX-i 

95  IFI  INPUT ( INDEX)-)  100,175,100 
too  IFI  IABSI  INPUTI  INOEXI )  -4)  105,105,185 
105  IFI IABSI INPUTI INDEX) ) -1 ) 185 , 120 , 1 10 
110  ISTOP-IASSI  INPUTI  INOEX)» 

DO  115  1-2, ISTOP 
1 1« INDEX* I 

IFI INPUT  1 1 1 l-LMAXI 11 5, 135,115 
115  CONTINUE 
GO  TO  125 
120  I  STOP-1 

e 

NO  LHAX  IN  THIS  SERIES  OF  SPECIES.SHIP  SERIES  TO  IHESS 
125  1 HE SSI  I ARROW) « INPUTI I NOE XI 
00  130  1-1, ISTOP 
I  ARROW- 1  ARROW* 1 
II-INOEXMV 

130  I HE SSI  I ARROW!* INPUT III) 

I  ARROW- 1 ARROW* 1 
GO  T0> 170 

LHAX  IS  IN  THIS;  SERIES,  COLLAPSE  SERIES  INTO  IFACT 
135  I0UH-IA8SI INPUTI INOEX) 1-1 

IFACTI I  SPEAR  l-'iSIGNl  IOUH,  INPUT  1 1  NOE  X)  1 
ISPEAR-I SPEAR*l 

140  IFACTI I  SPEAR) -INPUT! INDEX*1 ) 

I0R0P-0 

00  165  1-?.,  I  STOP 
II-INOEXM 

-IFI'IDROPI  150,r45,150 
145  IFI  INPUT  IT  I  ItIH-'X)  150,160,150 
150  ISPEAR-I  SPEARU 
155  IFACTI  ISPEARI- INPUT!  ID 
GO^  TO  165 
160  IOROP-l 
165  CONTINUE 

ISPEAR-ISPEAR*! 
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FACT0480 

FACT0485,. 

FACT0490 

F/JT0495 

FACT0500 

FACT0505 

FACV0510 

FACT0515 

FACT0520 

FAC TO 525 

FACT0530 

FACT0535 

FACT0540 

FACT0545 

FACT0550 

FACT0555 

F ACT0560 

FACT0565 

FACT0570 

FACT0575 

FACT0580 

FACT0585 
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C  RESET.  INDEX  FACT0590 

1.70  INDEX* INQEX+IA8SI  INPUT (INOEXll+i  FACT0595 

IF! INDEX-fcSNGTH)  95,95,17?  FACT0600 

F ACT0605 

SET  RIGHT  PARENTHESIS  FACT0610 

175  IFACTIISPEARI— 1001  FACT0615 

FACT0620 

NOW  SCAP  IHESS  ON  REAR  OF  I FACT  STARTING  AT  ISPEAR  FACT0625 

I  ARROW*  I ARR0W-/1.  FACT0630 

00  180  1*1,1  ARROW  FACT0635 

I I  *  I  SPEAR* I  FACT06A0 

180  IFACTIin-IHESSIIl  FACT0645 

ISPRED»ISPEAR*I ARROW  FACT0650 

GO  TO  195  FACT0655 

185  WRI TEI6, 190)  FACT0660 

190  FORMAT (27H  ERROR  IN: SUBROUTINE  FACTOR )  FACT0665 

195  RETURN  FACT0670 

£N0  FACT0675 


Subroutine  OUT  takes  the  highly  factored  version  of  the  iemoval  or ’formation 
reactions  as  required  and  prepares  the  hollorith  output  charr  cters  for  each  term 
of  the  factored' equation.  The  species  are  coded  as  Y(X)  and  the  rate  constants  as 
C(Z).  Each  term  of  the  series  is  identified  by  a  factorizing  parenthesis  as  a 
species  or  a  rate  constant.  Into  the  first  word  of  the  OUTPUT  region  is  stored  an 
equal  sign.  Whenever  a  factorizing  parenthesis  is  found,  be  it  open  or  closed, 
the  BCD  character  for  the  open  or  closed  parenthesis  is  stored  in  the  next  word 
of  the  OUTPUT  region.  The  actual  insertion  of  the  BCD  equivalent  of  the  binary 
term  is  inserted  between  the  parentheses  of  Y  and  C'  by  subroutine  CODER. 

This  latter  subroutine  also  inserts  the  BCD  characters  for  addition  (+)  and  for  mul¬ 
tiplication  (*)  into  OUTPUT  words  as  required. 

Upon  exit  from  OUT,  the  FORM  or  REMV  terms  preceeded  by  or  followed  by 
proper  BCD  arithmetic-symbols  are  located  in  the  OUTPUT  region.  Each  word  of 
this  region  contains  one  BCD  coded  quantity.  It  can  be  either  &  species  Y,  a  rate 
constant  C  ,  ah  open  or  closed  parenthesis,  or  a  plus  sign.  The  following  state¬ 
ments,  beginning  on  page  B14,  are  a  listing  of  the  FORTRAN  statements  for  sub¬ 
routine  OUT. 

Subroutine  CODER  is  called  by  OUT  and  sets  up  the  BCD  character  for  the 
information  fed! to  it  by  OUT.  OUT  calls  this  subroutine  if  the  word  to  be  coded 
is  a  species  or  a  rate  constant,  tells  the  subroutine  if  it  is  a  species  or  a  rate 
constant  and  whether  the  species  should  have  an  asterisk  preceeding  it  or  follow¬ 
ing  it  in  the  FORTRAN  code.  Upon  return  to  OUT  this  BCD  coded  word  is.  stored 
in  the  next  word  of  the  OUTPUT  region. 

The  following  statements,  beginnings  page  B15,  are  a  listing  of  the  MAP 
code  and  can  be  used  on  an  IBM-7044  as  well  as  on  an  IBM-7094. 
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Upon  exit  from  subroutine  OUT,  all  of  the  terms  of  the  given  series  are  BCD 
coded  and  stored  in  the  OUTPUT  region.  Since  each  word  of  this  region  contains 
one  coded  species,  one  rate  constant,  one  equal  sign,  one  plus  sign,  or  an  open 
or  closed  parenthesis,  each  word  will  contain  some  imbedded  blank  characters. 

The  purpose  of  subroutine  DECOD  is  to  scan  the  OUTPUT  region  and  remove  any  J 

blank  characters  it  finds  and  tp^collapse  the  remaining  valid  characters. 

On  exit  from  DECODE  the  required  BCD  coded  equation  is  sitting  in  the  ID 
region  devoid  of  all  imbedded  blank  characters  and  is  ready  to  be  printed  and 
punched. 

The  following  statements,  beginning  on  page  B17,  are  a  listing  of  the  MAP 
code  for  this  subroutine  and  in  acceptable  to  either  the  IBM-7044  or  IBM -7 094 
computer. 
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